урок 13.1 обновлёная задача 14

урок 13.1

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

program Project1;
var
i,j:integer;
begin
 i:=1;
 j:=1;
 repeat
   while (i<>10) do
     i:=i+1;
     j:=j+1;
     writeln(i,/,j,=,i mod j );
 until(j and i=10);
end.