Вычислить площадь круга S = pr^2))
вычислить периметр и площадь d a b

Периметр и и площадь круга если известен радиус

var
    r: real;

begin
    write(r = );
    readln(r);
    writeln(P = , 2 * pi * r);
    writeln(S = , pi * r * r);
end.