Ответ:

program z1;

var i:integer;

begin

for i:=34 to 67 do if i mod 2 = 0 then writeln(i)

end.

Объяснение:

Перебираем числа от 34 до 67 с шагом +1, если число чётное, то выводим его на экран с новой строки