Распечатать на паскале первые nчетных чисел, заранее пасибо

Var a: array[1..100] of integer; n: integer; begin readln(n); for i: =1 to 2*n do if a[i] mod 2 =0 then writeln(a[i]); end.

Делим 27 монет на три кучки по 9 монет в каждой. две любые  из этих кучек сравниваем. которая легче, та и содержит фальшивую. если две кучки равны по весу, то фальшивая в третьей. это первое взвешивание, по результатам которого нашли кучку из 9 монет, в которой фальшивая. далее кучку из 9 монет делим на три кучки по три монеты, и две любые из этих двух кучек взвешиваем. принцип тот же, находим кучку из трёх монет, в которой фальшивая. это второе взвешивание. осталось 3 монеты. две любые из них взвешиваем, и конкретно  узнаём фальшивую. это третье взвешивание. трёх достаточно.

//pascalabc.net var   a: array [1..15] of integer;   i, sum, n: integer; begin   for i : = 1 to 15 do   begin       a[i] : = random(1001)-500;       write(a[i], ' ');   end;   writeln;     for i : = 2 to 14 do       if ((a[i] > a[i - 1]) and (a[i] > a[i + 1])) then       begin           sum : = 0;   n : = a[i];     while ( n< > 0 ) do   begin       sum : = sum + (n mod 10);       n : = n div 10;       if n in [-9 .. -1] then       begin           if sum - abs(n) < 0 then               sum : = abs(sum) - abs(n)           else               sum : = sum - abs(n);           break;       end;   end;           writeln('сумма цифр числа ', a[i], ' = ', sum);   end; end.