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;