Вопрос к тем,кто шарит в программировании (по паскалю) : скласти програму,що дозволяє в одновимірному масиві,що складається з N речових елементів,обчислити кількість елементів масиву,рівних першому елементу

program array; var     arr: array of real;     i: integer; begin randomize; {в даному прикладі використано випадкові дійсні числа від 0 до 1} write('введіть n: '); readln(n); SetLength(arr, n); for i:= 0 to n do arr[i] := random; for i:= 1 to n do if arr[i] = arr[0] then write(i, ' '); end.