Составить программу вычисления длины окружности и площади p=5,4 , надо.

Var
    r: real;

begin
    readln(r);
    writeln('P = ', (2 * pi * r):4:2);
    writeln('S = ', (pi * sqr(r)):4:2);
end.