Известно, что из четырех чисел a1, а2, а3 и а4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n.

begin
write('Введите a1,a2,a3,a4: ');
var a1,a2,a3,a4,n:integer;
readln(a1,a2,a3,a4);
if a1=a4 then
begin
  if a1=a2 then n:=3 else n:=2;
end
else if a1=a2 then n:=4 else n:=1;
writeln('Номер числа: ',n);
end.