Viết chương trình nhập một dãy số tối đa 100 số, sau đó in ra màn hình các số khác nhau

Bạn nào giỏi tin cho mình hỏi: giải thích từng câu lệnh giúp mình nha, hoa cả mắt :)

Giải:

Uses Crt;

Var A : Array [1..100] Of Integer;

i , j , n : Integer ;

BEGIN

Clrscr ;

Write(' Do dai cua day so N = ') ; Readln (N) ;

For I := 1 To N Do

Begin

Write ('A[', i , ']= ') ; Readln ( A[i] ) ;

End ;

Writeln (' Cac so khac nhau la : ') ; Writeln ( A[1] ) ;

i := 2 ;

While i <= N Do

Begin

j := 1 ;

While ( j < i ) and ( A[j] <> A[i] ) Do inc(j) ;

If j = i Then Writeln( A[i] ) ;

i :=i + 1 ;

End ; Readln ; END.