Использование константы PI

Задача:

Найти длину и площадь окружности, используя встроенную в язык программирования Pascal константу PI.

Программа на языке Паскаль:

var r,l,s: real;

begin

    write('radius: ');

    readln(r);

     l:= 2*PI*r;

    s:= PI*r*r;

     writeln('PI=',PI);

    writeln('circuit: ',l:7:2);

    writeln('square:  ',s:7:2);

end.