Паскаль Написать программу, которая определяет, является ли воздух холодным или горячим, при вводе с клавиатуры градусов Цельсия (обозначение: °C).

var n, i, t, min:Integer;

begin

write('Введите число измерений: ');

readln(n);

for i:=1 to n do begin

write(i, '-е измерение равно: ');

read(t);

if t < 0 then

writeln('Воздух холодный')

else

writeln('Воздух горячий');

end;

end.