Question

найти длину окружности и площадь круга заданного радиуса R. в качестве значения Pi использовать 3.14

Answer 1

program z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.