IN ra các số giống nhau.

PROGRAM giongnhau;
VAR a:ARRAY[1..50]OF INTEGER;
i,j,tm,dem,n:INTEGER;
BEGIN
write('Nhap so phan tu trong mang ');readln(n);
FOR i:=1 TO n DO
BEGIN
write('a[',i,']');
readln(a[i]);
END;
FOR i:=1 TO n-1 DO
FOR j:=i+1 TO n DO
IF a[i]>a[j] THEN
BEGIN
tm:=a[i];
a[i]:=a[j];
a[j]:=tm;
END;
i:=0;
j:=1;
REPEAT
inc(i);
WHILE j<n DO
BEGIN
inc(j);
IF a[i]=a[j] THEN dem:=dem+1;
END;
IF dem>=1 THEN writeln(a[i]);
i:=i+dem;
j:=i+1;
dem:=0;
UNTIL i>=n;
readln
END.



có chi các cậu nói nghe