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

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

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

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