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

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