Программирование разветвляющихся алгоритмов в Delphi7

[Rom1k]

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

[VVM]

Мой взгляд на задачу, решение "в лоб" =)

procedure TForm1.Button1Click(Sender: TObject);
var
  I, A1, A2, A3, A4: integer;
begin
  A1 := StrToInt(Edit1.Text);
  A2 := StrToInt(Edit2.Text);
  A3 := StrToInt(Edit3.Text);
  A4 := StrToInt(Edit4.Text);
  if (A1 <> A2) and
     (A1 <> A3) and
     (A1 <> A4) then
  begin
    ShowMessage('Искомое число ' + IntToStr(A1));
    exit;
  end;
  if (A2 <> A1) and
     (A2 <> A3) and
     (A2 <> A4) then
  begin
    ShowMessage('Искомое число ' + IntToStr(A2));
    exit;
  end;
  if (A3 <> A1) and
     (A3 <> A2) and
     (A3 <> A4) then
  begin
    ShowMessage('Искомое число ' + IntToStr(A3));
    exit;
  end;
  if (A4 <> A1) and
     (A4 <> A2) and
     (A4 <> A3) then
  begin
    ShowMessage('Искомое число ' + IntToStr(A4));
    exit;
  end;
end;

[alex_fcsm]

Можно даже на одну проверку делать меньше(a1<>a2)and(a1<>a4) then a1

[Stilet]

Ниче се код! А попроще никак?:

const a:array[1..4] of integer=(2,1,2,2);
var i,n:byte;
begin
for i:=2 to 4 do if a[i]-a[i-1]<>0 then begin n:=i; break;end;
writeln(n);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[alex_fcsm]

Сообщение от Stilet

Ниче се код! А попроще никак?:

const a:array[1..4] of integer=(2,1,2,2);
var i,n:byte;
begin
for i:=2 to 4 do if a[i]-a[i-1]<>0 then begin n:=i; break;end;
writeln(n);readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Данный код if a[i]-a[i-1]<>0 устанавливает неравенство элементво а не какой именно из них отличается от всех других. Запустите с (1,2,2,2)

[Stilet]

Ну да ну да. Затык в первом элементе. А жаль.