Задача 15 Урок 13.1

Задача 15 урок 13.1

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program U13_1Z15;
var a, b, n: integer;
begin
  a:=1;
  b:=1;
  n:=1;
  while (n<=10) do
    begin
      while (a<=10) and (b<=10) do
        begin
          writeln(a*n, ':', b, '=',((a*n) div b));
          a:=a+1;
        end;
      n:=n+1;
      b:=b+1;
      a:=1;
      writeln();
    end;
  readln();
end.