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

Предыдущий
вопрос Следующий
вопрос

program WaterState;
var
temperature: integer;
begin
// Ввод температуры с клавиатуры
writeln('Введите температуру воды: ');
readln(temperature);
// Определение агрегатного состояния воды
if temperature < 0 then
writeln('При данной температуре вода находится в твердом состоянии (лед)')
else if (temperature >= 0) and (temperature < 100) then
writeln('При данной температуре вода находится в жидком состоянии')
else
writeln('При данной температуре вода находится в газообразном состоянии (пар)');
end.

Программа запрашивает у пользователя температуру воды и определяет ее агрегатное состояние (лед, жидкость или пар) в зависимости от введенного значения температуры.