задачи ПОМОГИТЕ

[maximon]

Вот такая задача и что то я даже не могу понять даже с чего начать.
Можете подсказать как решать или если не сложно написать код решения. Очень буду блогадарен
Задача:
Известно, что из четырех чисел a1, a2, a3 и a4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n.

[maximon]

Подскажите хотя бы с чего начать. Большое спасибо

[mihali4]

Алгоритм "по-деревенски":
a1=a2 и а2=а3?
___да - отличное от других - а4, n=4
___нет:
______а1=а2?
______нет:
_________а2=а3?
_________да - отличное от других - а1, n=1
_________нет - отличное от других - а2, n=2
______да - отличное от других - а3, n=3

[Карась]

Реализация "деревенского" алгоритма:

if a1 = a2 then
 if a3 = a1 then n := a4 Else n := a3
Else
  if a2 = a3 then n := a1 Else n := a2;

[maximon]

procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,a3,a4,n:integer;
begin
a1:=strtoint(edit1.Text);
a2:=strtoint(edit2.Text);
a3:=strtoint(edit3.Text);
a4:=strtoint(edit4.Text);
if a1 = a2 then
 if a3 = a1 then n := a4 Else n := a3
Else
  if a2 = a3 then n := a1 Else n := a2;
end;

Это получаеться нужно сделать так?

[mihali4]

По условию N - не само число, а его порядковый номер, не так ли?

[maximon]

да. mihali4 не поможешь код привести в порядок? Спасибо за ранее

[mihali4]

Ну-у-у, ващ-щ-ще...

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

procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,a3,a4,n:integer;
begin
a1:=strtoint(edit1.Text);
a2:=strtoint(edit2.Text);
a3:=strtoint(edit3.Text);
a4:=strtoint(edit4.Text);
if a1 = a2 then
if a3 = a1 then n := 4 Else n := 3
Else
if a2 = a3 then n := 1 Else n := 2;
end;
Это получаеться нужно сделать так?

[maximon]

procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,a3,a4,n:integer;
begin
a1:=strtoint(edit1.Text);
a2:=strtoint(edit2.Text);
a3:=strtoint(edit3.Text);
a4:=strtoint(edit4.Text);
if a1 = a2 then
if a3 = a1 then n := 4 Else n := 3
Else
if a2 = a3 then n := 1 Else n := 2;
Edit5.Text:=IntToStr(n);
end;

Вот так получаеться должен выглядить код конечный?

[Карась]

Зачем спрашивать так или не так если быстрее проверить самому

Да вот так.