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

var
    r: real;

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