Question

Условный оператор. Задача 5
Даны три целых числа. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел.
Формат входных данных
Входной файл содержит три целых числа через пробел.
Формат выходных данных
Выведите 'YES' если это так, и 'NO' в противном случае.
Примеры:
Вход
544 935 911
Выход
NO

Answer 1

Всё, что смог
var  a,b,c: integer;  begin
write('Введите три целых числа через пробел: ');read(a, b, c);
if a=b then  writeln('YES')    else writeln('NO');       if b=c then          writeln('YES')            else writeln('NO');                if a=c then                  writeln('YES')                    else writeln ('NO');

end.

Answer 2

var
a,b,c: integer;

begin

write('Введите три целых числа через пробел: ');
read(a, b, c);

if a=b then
writeln('YES')
else writeln('NO');
if b=c then
writeln('YES')
else writeln('NO');
if a=c then
writeln('YES')
else writeln ('NO');

end.