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

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