-Цитата от Трэй

-Цитата от Hammer

Pascal ABC должен под вайном пойти.

ок, попробую abc
турбо не завёлся

Потому что Turbo под DOS.

-Цитата от Kasper[ALP CLAN]

-

var a,b:ineger;
begin;
readln(a,b);
a:=a mod 2;
if a>0 then b:=b mod 2;
if b> then;
writeln('чётных чисел нет');
else writeln('чётное число есть');
end.

Как доработать программу с использованием логической операции OR?

Если правильно понял, то:

Код:

var a,b: integer;
begin;
  readln(a,b);
    if (a mod 2 = 0) OR  (b mod 2 = 0) then
      writeln('чётное число есть')
    else 
      writeln('чётных чисел нет');
end.