Использование константы 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.