Найти максимальное значение среди простых членов . если таковых нет то вывести .
я пыталась написать но не получилось
program ak ;
type
intarray = array[1..5] of integer;

var
i, max,s,n: integer;
numbers : intarray;
begin
numbers[1] : = 31;
numbers[2] : = 7;
numbers[3] : = 2;
numbers[4] : = 14;
numbers[5] : = 527;

max : =numbers[1];

for i : = 1 to 5 do
if n mod i=0 then
begin
s: =s+i;
end ;
if s=(n+1) then

writeln('n простое число');

else ('нет простых чисел');
end.

​

Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.
Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001.
Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:
(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.

Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.
Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001.
Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:
(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.