Вот, пожалуйста.

const n=22;

var a:array[1..n] of integer;

i:integer;

begin

for i:=2 to n do

begin

a[i]:=i;

if (a[i] mod 2)<>0 then a[i]:=0;

if(a[i]<>0) then writeln(a[i]-12);

end;

end.