Напишите решение в Паскале: массив А заполнен случайным образом…

vara: array[1… 100] of integer; povt,i,j,elem: integer; beginpovt: =0; randomize; for i: =1 to 100 doa[i]: =random (1001); for j: =1 to 100 dopovt: =0; beginfor i: =1 to 100 doif a[i]=a[j] thenbeginelem: =a[i]; povt: =povt+1; end; povt: =povt-1; write ('Число='+elem+' Количество повторений='+povt); end;