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.
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.