вычислить площадь круга 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.