Программа лёд-пар

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.