program z1;
var i:integer;
begin
for i:=34 to 67 do if i mod 2 = 0 then writeln(i)
end.
Объяснение:
Перебираем числа от 34 до 67 с шагом +1, если число чётное, то выводим его на экран с новой строки
