Задача 4 Урок 11

Задача 4 Урок 11

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

var a: integer;
begin
  a := 35;
  while (a < 117) do
  begin
    if((a mod 2)=0)or(a>45)and(a<99)and((a mod 2)<>0)then
       write(a, ' ');
    a:=a+1;
  end;
  readln();
end.