Programa de area del rectangulo

program rec;
uses crt;
   var
      l1,l2:integer;
   var
      area :integer;
begin
    clrscr;
    write('escribe la medida del lado del rectangulo :  ');
    readln(l1);
    write('escribe la otra medida  :  ');
    readln(l2);
    area:=l1*l2;
    writeln('el area es :  ', area);
    readln;
end.