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

http://fkn.ktu10.com/?q=node/8697
Выведите на экран таблицу умножения используя только циклы вида repeat/until.

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