multiplicación

program tabla;
uses wincrt;
var
multi, a, b : integer;
begin
writeln ('Ingrese a');
Readln (a);
writeln ('Ingrese b');
readln (b);
multi:= a*b;
writeln ('El resultado es: ', Multi);

end.