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