вторник, 4 октября 2011 г.

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.