[LilLoco]

Навскидку, не хватает в конце

Код:

end; 
end.

Так же не объявлены переменные a, b, i2, i3.
И вообще, зачем нужно это?:

Код:

i2:=i*i;
 i3:=i2*i;

Вам нужны четные числа, значит остаток должен быть равен 0, у вас же - 1.
При проверке на "четность", если четное, то выводить на экран, при помощи

Код:

write(i + ' ')

Так они будут выведены в строку, через пробел...