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.