С ИНФОРМАТИКОЙ ПАСКАЛЬ 9 КЛАСС Получено 9 целых чисел `(x1–x9)`. Известно, что одно из них отлично от 8 других, равных между собой. Вывести это число. Алгоритм должен выполнять не более 1 операций сравнения.

var v,s,sm:integer;

x:array[0..8] of integer;

begin

 for var i:=0 to 8 do

 begin

   write('Введите число x',i+1,' = '); readln(x[i]);

 end;

 for var i1:=0 to 7 do

 begin

   if x[i1] = x[i1+1] then v:=x[i1];

   s:= s+x[i1];

 end;

 s:= s+x[8];

 sm:= s-(v*8);

 write('Число отличающиеся - ',sm);

end.