Вариант 3.
for j := 0 to 3 do begin i := 2; while i >= 6 do begin i := i + 2; end; writeln ( '1' );end;
for i:=4 to 1 do begin ...end;
for j := 0 to 3 do begin i := 2; while i <= 6 do begin i := i + 2; end; writeln ( '1' );end;
S := 0;A := 1;for K:=1 to 20 do begin S := S + K*2; L := L + S;end;
a:=2;for i:=0 to 3 do begin a:=a+i;end;
a:=4;for i:=1 to 3 do begin a:=a+a;end;
for i:=4 downto 2 do write(i);
i:=3;write('9');repeat write(i+2); i:=i+1;until i>6;
i:=4;repeat writeln('Привет!'); i:=i-1;until i<...;
i:=...;while i>=6 do begin writeln('Привет!'); i:=i-1;end;
i:=4;a:=12;while i<6 do begin a:=a+i; i:=i+1;end;