program Belozor6 var rez integer begin writeln Задача Выясните что над

program Belozor6;
 var t,v,rez:integer;
begin
  writeln('Задача: Выясните, что наденет Майкл в зависимости от погодных условий. Введите температуру и состояние погоды.');
  readln(t);
  writeln ('Ведите температуру.');
  if (t>20)then writeln('Майкл наденет шорты.');
  if (t>=0)and(t<=20)then writeln('Майкл наденет брюки.');
  if(t<0)then writeln('Майкл наденет теплые штаны.');
  writeln ('Ведите 1 если солнечно и 2 если идет дождь.');
   readln(v);
   if v=1 then writeln('Солнечно. Майкл наденет панаму.');
   if v=2 then writeln('Дождливо. Майкл наденет дождевик.');
   readln();
   end.