program circulo;
uses wincrt;
var areacirculo, radio: real;
begin
writeln ('Area de circulo');
writeln ('Ingrese radio');
Readln (radio);
areacirculo:= 3.1416*(radio*radio);
writeln ('El Resultado es: ', areacirculo:5:3);
End.