С помощью Паскаля написать программу на задачу: Дана температура. определить агрегатное состояние воды.

var

gradus: real; / / в переменной gradus храним температуру

begin

/ / реализовываем ввод температуры

writeln ('Введите температуру воды');

readln (gradus);

/ / выполняем проверку и вывод сообщения

if gradus < 0 then writeln ('Агрегатное состояние воды - лед')

else if (gradus > = 0) and (gradus < = 100) then writeln ('Агрегатное состояние воды - жидкость')

else writeln ('Агрегатное состояние воды - пар');

end.