Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.

Предыдущий
вопрос Следующий
вопрос

program ProductOfPrimeIndices;
function IsPrime(num: integer): boolean;
var
i: integer;
begin
IsPrime := true;
if num < 2 then
IsPrime := false
else
for i := 2 to Trunc(Sqrt(num)) do
if num mod i = 0 then
begin
IsPrime := false;
break;
end;
end;
var
n, i, num, product: integer;
begin
writeln('Enter the number of elements in the sequence: ');
readln(n);
product := 1;
writeln('Enter the elements of the sequence: ');
for i := 1 to n do
begin
readln(num);
if IsPrime(i) then
product := product * i;
end;
writeln('Product of prime indices:', product);
end.

Программа сначала проверяет, является ли число простым, затем умножает индексы простых чисел в последовательности и выводит результат.