Составить программу для вычисления по формуле s=пr²

Var r,S:real;
const pi:=3.141592;
begin
write('введите радиус круга');
read(r);
S:=pi*sqr(r);
write('Площадь круга =')
end.