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.