воскресенье, 25 сентября 2011 г.

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.