Если положить, что вода замерзает при нуле градусов, то:
program ice;
var temp : integer;
begin
writeln('введите температуру');
read(temp);
if temp > 0 then write ('вода не замерзнет')
else write('вода замерзнет');
end.
Если положить, что вода замерзает при нуле градусов, то:
program ice;
var temp : integer;
begin
writeln('введите температуру');
read(temp);
if temp > 0 then write ('вода не замерзнет')
else write('вода замерзнет');
end.