var
t: real;
begin
writeln('Введите температуру:');
readln(t);
if t > 0 then
writeln('Нагревается.');
if t < 0 then
writeln('Замерзает.');
if t = 0 then
writeln('Простой.');
end.
var
t: real;
begin
writeln('Введите температуру:');
readln(t);
if t > 0 then
writeln('Нагревается.');
if t < 0 then
writeln('Замерзает.');
if t = 0 then
writeln('Простой.');
end.