Написать программу на Паскале, которая формирует случайным образом массив из n- целых чисел, лежащих в диапозоне от 1 до 5, вывести сма массив и номера элементов совпадающих с первым элементом.

program zadanie;
var
a: array[1..99999] of real;
i,n: integer;
begin
randomize;
write(Введите число чисел массива: ); readln(n);
for i:=1 to n do
begin
a[i]:=1+random(5);
writeln(a[, i, ]=, a[i]);
end;
write(Номера элементов, совпадающих с первым элементом: );
for i:=1 to n do if a[i+1]=a[1] then write(i+1:3);
writeln;
end.