Выведите на экран, все четные числа от 35 до 117 и нечетные чиcла, лежащие в диапазоне от 45 до 99

Var  i: integer;
beginfor i:=35 to 117 doif (i mod 2=0) then write(i:4);writeln;writeln;for i:=45 to 99 doif (i mod 2<>0) then write(i:4);end.