Pascal: Multiplication Tables from m to n

program ex19;

var     i, j, s, f: integer;
begin
  writeln ('Enter starting point for multiplication tables');
  readln (s);
  writeln ('Enter finishing point for multiplication tables');
  readln (f);
  for i := s to f do
    for j := 1 to 12 do
      writeln (j, ' x ', s, ' = ', j * s);
  readln;
end.

We read two values from the user, eg 4 and 9. We then output the multiplication tables from 4 to 9. 

Back to questions