Вариант 1.
a := 0;for i:=5 downto 3 do begin a := a + 3;end;
for i:=1 downto 4 do begin ...end;
a:=10;for i:=1 to 2 do begin a:=a-1;end;
a:=10;for i:=0 to 2 do begin a:=a-i;end;
i:=4;repeat writeln('Привет!'); i:=i+1;until i=...;
i:=2;repeat writeln('Привет!'); i:=i+1;until i > 5;
i:=6;while i<=... do begin writeln('Привет!'); i:=i+1;end;
i:=2;while i<5 do begin writeln('Привет!'); i:=i+1;end;