Programa de Mltiplicaciòn

program multi;
uses crt;
   var
      a,b,c :integer;
begin
   clrscr;
   write('ingresa un n£mero : ');
   readln(a);
   write('ingresa otro n£mero : ');
   readln(b);
   c:=a*b;
   writeln('el resultado es :  ');
   writeln(c);
   readln;
end.