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

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

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

program  u13z3;
var i,j: integer;

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

 readln();
end.