Страницы в книгах как правило нумеруются натуральными числами 1,2,3..таким образом,что одна сторона первого листа имеет номер 1,обратная сторона того же листа-номер 2. Страницы второго листа пронумерованы числами 3 и 4 соответственно,и т.д. Ваша задача по заданным двум страницам определить принадлежат ли они одному и тому же листу или разным

Var
a,b: integer;
begin
write(Введите 2 чисоа через пробел:);
readln(a,b);
if (a mod 20)and(b-a=1)
then write (Да)
else write(Нет);
readln;
end.