← All examples

Multiplication table

Pascal Loops

nested for loops

Flowchart (ISO 5807)

StartInput ni = 1, n, 1j = 1, n, 1Output i * j « »writelnEndFigure 1 — MultTable

Source code

procedure MultTable(n: integer);
var i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(i * j, ' ');
    writeln;
  end;
end;