area.pas

program area;
uses crt;
  var l, a: Integer;
begin
  Writeln ('Introduce la longitud: ');ReadLn(l);
  a := l * l;
  Write('El area es: ', a);
end.