Programa de area del cuadrado

program cuad;
uses crt;
   var
      l1,l2:integer;
   var area:integer;
begin
   clrscr;
   write('dale valor a uno de los lados :  ');
   readln(l1);
   write('ahora a otro de los lados :  ');
   readln(l2);
   area:=l1*l2;
   writeln('el area del cuadrado es :  ',area );
   readln;
end.