Даны четыре целых числа, одно из которых отлично от трех других, равных между собой....

Question

Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.

Answer 1

Borland Pascal 7.0
uses Crt;
var
  a,b,c,d:integer;
begin
  ClrScr;
  Read(a,b,c,d);
  if a<>b then
    if b=c then Writeln(1) else Writeln(2)
  else
    if b=c then Writeln(4) else Writeln(3);
  ReadKey
end.