Площадь поверхности шара s=4* pi* r^2 где s площадь поверхности шара r радиус составить программу

На языке паскаль, за взято 3,14:

program ball;
var s,r, r2 : real;
begin
writeln('Введите радиус шара');
readln(r);
r2:=sqr(r);
s:=4*3.14*r2
writeln('Площадь шара равна ', s);
readln;
end.