Área de un Circulo

program logicander;


Uses WinCrt;
Var
    a, b : real;
Begin


WriteLn ( 'Ingrese el primer valor' );
ReadLn (a);


b:= 3.14*(a*a);


WriteLn ( 'El area del circulo es: ', b:3:3);


end.