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