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

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

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

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