Как известно площадь круга рассчитывается по формуле s=пr 2.составьте программу нахождения и вывода на экран значения площади круга,если значение радиуса задается с клавиатуры

Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.

Пример:
R = 2
Площадь круга = 25.133