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

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

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

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