написать программу на : дана температура. определить агрегатное состояние воды.

Uses crt;
var a : integer;
begin 
readln (a);
if (a>100) then writeln('Gaz')
else if (a<0) then writeln ('led')
else writeln (')l(idkaya');
end.