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