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

Вложенные циклы

{13.1 — 3 Выведите на экран таблицу умножения используя один цикл while и один repeat-until.}

var i, j: integer;
begin
  i:=1;
  j:=1;
  while (i<>10) do
    begin
      write(i, ' ');
      repeat
        j:=j+1;
        write(i*j, ' ');
      until (j>9);
      writeln('* for ', i);
      i:=i+1;
      j:= 1;
    end;
  readln();
end.

//1 2 3 4 5 6 7 8 9 10 * for 1
//2 4 6 8 10 12 14 16 18 20 * for 2
//3 6 9 12 15 18 21 24 27 30 * for 3
//4 8 12 16 20 24 28 32 36 40 * for 4
//5 10 15 20 25 30 35 40 45 50 * for 5
//6 12 18 24 30 36 42 48 54 60 * for 6
//7 14 21 28 35 42 49 56 63 70 * for 7
//8 16 24 32 40 48 56 64 72 80 * for 8
//9 18 27 36 45 54 63 72 81 90 * for 9