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

program krug;
uses crt;
var r,x, s: real;
begin;
clrscr;
writeln ('r='); read (r);
x:=r;
while x<=r+60 do begin
s:=3.14*x*x;
writeln ('s=',s,'r=',x);
x:=x+2;
end;
readkey;
end.