Создайте программу для решения : найти площадь круга заданного радиуса s=пr^2

Var r,s:real;
Begin
Writeln('введите радиус');
Readln(r);
s:=r*r*pi;
Writeln('S=',s);
End.