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

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

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

var i, j: integer;
begin
  i:=1;

  while i<10 do
    begin
      j:=1;
      repeat
        write(i, 'x', j, '=',i*j, ' ');
        j:=j+1;
      until (j=9) ;

    i:=i+1;
    writeln();
    end;

  writeln();
  writeln('<<Konec>>');
  readln();
end.