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

Uses crt; var n,t,i,j,mult: integer; flag: byte; begin writeln('input "n" and elements of array: '); read(n); mult: =1; for i: =1 to n do begin flag: =1; read(t); if t mod 2 = 0 then begin j: =3; while j< sqrt(t) do begin if t mod j = 0 then begin flag: =0; break; end; inc(j,2); end; end; if flag=1 then mult: =mult*i; end; writeln(mult); end.

Алг нач   цел a, sum, pro   вывод 'введите трёхзначное положительное число: '   ввод a   если a< 100 или a> 999     то вывод 'это не трёхзначное число. перезапустите программу! '     иначе       sum : = mod( a, 10) + mod( div( a,10),10) + div( a,100)       pro : = mod( a, 10) * mod( div( a,10),10) * div( a,100)       если sum > 9 и sum < 100         то вывод 'сумма цифр числа ', a,' - двухзначное число (', sum,')', нс         иначе вывод 'сумма цифр числа ', a,' - не двухзначное число (', sum,')', нс       все       если pro > 99 и pro < 1000         то вывод 'произведение цифр числа ', a,' - трёхзначное число (', pro,')', нс         иначе вывод 'произведение цифр числа ', a,' - не трёхзначное число (', pro,')', нс       все       если mod( sum, 3) = 0         то вывод 'эта же сумма (', sum,') кратна трём', нс         иначе вывод 'эта сумма (', sum,') не кратна трём', нс       все   все кон

  информационный объект   — это описание некоторой сущности (реальногообъекта, явления, процесса, события) в виде совокупности логически связанных реквизитов (информационных   элементов)  компьютер это-электронно-вычислительная машина  .    информация-  сведения независимо от формы их представления.  персональный компьютер ,  пк   (. personal computer, pc), пэвм (персональная   электронно-вычислительная машина) — настольная микро-эвм, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности.