var n,i,k:integer; begin readln(n); i:=2; k:=0; repeat if (i mod 3)=0 then begin writeln(i); k:=k+1; end; i:=i+2; until k>=n; readln; end.
Яндекс