Ответы и объяснения

2013-05-28T09:23:07+04:00

Как я понял дан радиус:

 

var r,l,s:real;
begin
write('Vverite radius = ');
readln(r);
l:=2*pi*r;
s:=pi*r*r;
writeln('Dlina = ',l:0:2);
writeln('Ploshad = ',s:0:2);
end.