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

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

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

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