Задача "Агрегатное состояние воды"

Program voda;
uses crt;
var t: integer;
begin
writeln('t='); readln(t);
If t<0 then writeln('Led')
else if t>100 then writeln('par')
else writeln('voda');
readkey;
end.