Известно, что из четырех чисел a1, a2, a3, a4 одно отлично от трех других, равных между собой. найдите это число. Решить задачу на языке Паскаля.

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

program FindDifferentNumber;

var
a1, a2, a3, a4, diff: integer;

begin
writeln('Enter four numbers:');
readln(a1, a2, a3, a4);

if (a1 = a2) and (a1 = a3) then
diff := a4
else if (a1 = a2) and (a1 = a4) then
diff := a3
else if (a1 = a3) and (a1 = a4) then
diff := a2
else
diff := a1;

writeln('The different number is: ', diff);
end.