Área de una Circunferencia

program logicander;


Uses WinCrt;
Var
    area, radio : real;
Begin


WriteLn ( 'Ingrese el Radio' );
ReadLn (radio);


Area:= 3.1416*(radio*radio);


WriteLn ( 'El resultado es: ', Area:3:3);


end.