Даны четыре целых числа, одно из которых отлично от 3 других, равных меж собой. Определить порядковый номер числа, отличного от остальных — Pascal(Паскаль)

var
a:array [1..4] of integer;
i:integer;
begin
For i:=1 to 4 do
begin
readln(a[i]);
end;
if (a[1]=a[2])and(a[1]=a[3]) then
writeln('Число ',a[4],' Порядковый 4');
if (a[2]=a[3])and(a[2]=a[4]) then
writeln('Число ',a[1],' Порядковый 1');
if (a[1]=a[2])and(a[1]=a[4]) then
writeln('Число ',a[3],' Порядковый 3');
if (a[1]=a[3])and(a[1]=a[4]) then
writeln('Число ',a[2],' Порядковый 2');
end.