Дан целочисленный массив размера N, содержащий ровно два одинаковых элемента. Найти номера одинаковых элементов и вывести эти номе

[Alexar Makken]

Вот что есть:

const n=10;
      a: array[1..n] of real = (1,4,4,7,-4,-3,-5,-3,4,6);
var
    i,j,c: integer;
begin
writeln('Найти элементы которые встречаются 2 раза');
for i:=1 to n-1 do
 for j:=i+1 to N do begin
 if a [ i ]=a[ j ] then begin
 inc(c);
 if c=2 then
 writeln (a[ i ],' в позициях ',i ,' и ', j);
 end; end;
 end.

[Mad_Cat]

c:=0;
for i:=1 to n-1 do begin
for j:=i+1 to N do 
if a [ i ]=a[ j ] then begin c:=j;break;end;
if c<>0 then begin  writeln (a[ i ],' в позициях ',i ,' и ', c);break;end;
end; 
end.