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

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

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

var i, j: integer;
begin
  i:=1;
  j:=1;
  repeat
    write(i, ' ');
    repeat
      j:=j+1;
      write(i*j, ' ');
    until (j>9);
    writeln('* for ', i);
    i:=i+1;
    j:= 1;
  until (i>9);
  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