Составить программу в Паскале. Даны три целых числа: a, b, c. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел. Ввод данных осуществить через файл input.txt, а вывод в файл output.txt.

Предыдущий
вопрос Следующий
вопрос

program CheckEqualNumbers;
var
a, b, c: integer;
inputFile, outputFile: text;
begin
assign(inputFile, 'input.txt');
reset(inputFile);
readln(inputFile, a, b, c);
close(inputFile);
assign(outputFile, 'output.txt');
rewrite(outputFile);
if (a = b) or (a = c) or (b = c) then
writeln(outputFile, 'Yes')
else
writeln(outputFile, 'No');
close(outputFile);
end.