Área de un cuadrado

program logicander;


Uses WinCrt;
Var
    ac, lado : real;
Begin


WriteLn ( 'Ingrese el lado' );
ReadLn (lado);


ac:= (lado*lado);


WriteLn ( 'El area del cuadrado es: ', ac:3:3);


end.