Написать программу в ПАСКАЛЕ, которая проверяет…

var a: array [1… 100] of integer; n,i,j: integer; f: boolean; BEGIN read (n); f: =false; for i: =1 to n do begin readln (a[i]); for j: =1 to i-1 do f=f or (a[i]=a[j]); end; writeln (f); END.