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

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

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

program lesson13_1;
var
    i, j: integer;
begin
    i := 1;
    repeat
        j := 1;
        repeat
            writeln(i, ' * ', j, ' = ', i * j);
            j := j + 1;
		until j > 10;
        i := i + 1;
	until i > 9;
    readln();
end.