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

Var a, b, c, d: integer; begin       readln(a, b, c, d);       if (a < > b) then         if (a < > c) then writeln(1) else writeln(2)             else if (c < > a) then writeln(3)                    else writeln(4); end.вот так-то)

Var   a,b,c: array[1..10]of integer;   i: integer;   begin     writeln('m 1: ');       for i: =1 to 10 do         read(a[i]);       writeln('m 2: ');           for i: =1 to 10 do             begin                 read(b[i]);                 c[i]: =a[i]+b[i];         end;       writeln('m 3: ');       for i: =1 to 10 do       write(c[i],' ');       end.

Последовательности длиной 7, содержащей 5 букв а могут быть следующими: ** (* - любой из символов в или с) *а* *аа* аа** а** ** (пока 6 вариантов) далее - аналогично: **а *а*а аа*аа*а а**а **а (ещё 5 вариантов) **аа аа*а*аа а*аа*аа **аа (ещё 4 варианта) аа** а*а* *аа* (ещё 3 варианта) а** *а* (ещё 2) ** (ещё 1) итого: 6+5+4+3+2+1=21 так как на месте * могут быть любые из 2 символов в или с, то это даст ещё по 4 варианта для каждого случая. можно здесь, конечно, комбинаторику вспомнить. итого: 21*4 = 84