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