Дана температура. Определить агрегатное состояние воды. составьте пожалуйста программу, она решается через оператор: case.

varx:integer;beginwriteln('Введите температуру воды:');readln(x);case x of-193..0:writeln('Агрегатное состояние: твердое');1..99: writeln('Агрегатное состояние: жидкое');else writeln('Агрегатное состояние: газообразное');end;end.