Программа на MIX'e

[Spetsor]

Здравствуйте.
Задача:

Программа на Pascal:
Program Anton1;
Uses Crt;
Var    i:integer;
        x,n:integer;
        a:array[1..100] of integer;
begin
clrscr
Write(‘Введите кол-во элементов последовательности для N:');
Read(n);
writeln;
   for i:=1 to n do begin
        if i mod 3 = 0 then
        a[i]: = n-i
      else if i mod 3 = 1 then
        a[i]: = i*2
      else a[i]:= i div 3;
write (a[i], ‘ ‘);
   end;
readkey;
end.

Написать то же самое на MIX.