program evenNumbers;
vari: integer;
beginfor i := 3 to 35 dobeginif i mod 2 = 0 thenwritelniii;end;end.
program evenNumbers;
var
i: integer;
begin
for i := 3 to 35 do
begin
if i mod 2 = 0 then
writelniii;
end;
end.