Área de un cuadrado

program nombre;
uses wincrt;
var
aCuadrado, l:integer;
begin
writeln('ingrese l');
readln(l);
aCuadrado:=(l*l);
writeln('el area es',aCuadrado);
end.