Задача

[temnot]

В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них

Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.

Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решил задачу. Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника. Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае.
входные данные
11
-1
выходные данные
YES
входные данные
3
1
выходные данные
NO

var a,b:integer;
begin
readln(a,b); 
if a=1 then writeln('YES');
else if (a<>1) and (b><1)then writeln('YES')
else writeln('NO');
readln;
end.

Почему не работает?

Ошибка:
5.11 boolean expression expected, but got ''longint''

[BDA]

А так?

var
  a, b: integer;
begin
  readln(a, b); 
  if a = 1 then
    writeln('YES')
  else if (a <> 1) and (b <> 1) then
    writeln('YES')
  else
    writeln('NO');
end.

За правильность алгоритма не отвечаю.

Мой вариант:

var
  a, b: integer;
begin
  readln(a, b); 
  if (a = 1) and (b = 1) or (a <> 1) and (b <> 1) then
    writeln('YES')
  else
    writeln('NO');
end.

[temnot]

Ваш вариант работает, спасибо!