написать все возможные, эквивалентные данному фрагменты программы, с использованием других операторов цикла

[pantuhin]

for i:=10 downto 1 do
a[i,j]:=(a[i,j] mod*i)/j;i:=i+1;

[Hacker19_90]

#1

    i := 10;
    while i >=1 do
    begin
        a[i,j]:=(a[i,j] mod*i)/j;
        Dec(i);
    end;
    Inc(i);

#2

i := 10;
repeat
    a[i,j]:=(a[i,j] mod*i)/j;
    Dec(i); 
until i < 1;
Inc(i);

[pantuhin]

благодарствую