Calcular el área del circulo

program nombre;
uses wincrt;
var
AC,r:real;
begin
writeln('ingrese r');
readln(r);
AC:= 3.1416*(r*r);
writeln('el area es',AC:5:2);
end.