Вычеслить и вывести на экран площадь круга и длину окружности зная радиус( задача в Паскаль)

program circle;

var S,P,r:real;

const i = Pi;

begin

 writeln('Введите радиус окружности');

 readln(r);

 S:=i*(r*r);

 P:=2*i*r;

 writeln('Площадь = ',S,', длина = ',P);

end.