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

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

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

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