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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
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.