Наибольшое число, дельфи

[V@mpir]

Дана последовательность натуральных чисел. Найти в ней наибольшее число сумма цифр соседей которого есть простое число (число, которое делится только на себя и на единицу). Если таки чисел нет, то вывести -1.
Входной файл:
5 - количество цифр последовательности
4 6 7 9 3 - сама последовательность
Выходной:
6 - наибольшие число при заданных условиях

[ac1d_buRn]

не совсем понял задание (сумма цифр соседей которого есть простое число (число, которое делится только на себя и на единицу), но самое большое из 5 чисел вот:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a,b,c,d,e,max:integer;
begin
  write('a='); readln(a);
  write('b='); readln(b);
  write('c='); readln(c);
  write('d='); readln(d);
  write('e='); readln(e);

  begin
  if (a>b) and (a>c) and (a>d) and (a>e)  then

  begin max:=a; end else
    if (b>a) and (b>c) and (b>d) and (b>e) then

    begin max:=b; end else
      if (c>a) and (c>a) and (c>d) and (c>e) then

      begin max:=c; end else
        if (d>a) and (d>c) and (d>b) and (d>e) then

        begin max:=d; end
        else writeln('samoe bolwoe chislo', e);
  end;
        writeln('samoe bolwoe chislo', max);
        readln;
        readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[V@mpir]

Не)) Сравнить числа между собой тем более если их 5 я мог бы сам. Количество цифр в последовательности произвольное - это раз, во-вторых они находятся в файле, в третьих нужно найти не просто самое большое число среди них, а именно число сумма цифр соседей которого есть простое число, число, которое делится только на себя и на единицу.
Например в последовательности 4 6 7 9 3 самое большое число должно было быть 9, но он не соответствует нашему условию, так как 7+3 будет 10, а 10 делится на 10, 1, 2, 5 , а значит не является простым числом.

[kakawkin]

program tt;
var a:array[1..99] of integer;max,i,n:integer;
begin
 write('Количество слагаемых: ');readln(n);
 for i:=1 to n do
  begin
   write(i,'-е слагаемое:');
   readln(a[i])
  end;
 max:=a[1]; 
 for i:=1 to n do
  if max<a[i]
   then max:=a[i];
 writeln('Самый большой элемент: ',max);
end.

Так ?

[V@mpir]

Нет)) Может я конечно не понятно преподношу задание, но поверьте мне оно звучит именно так, и по-моему довольно понятно, что требуется. Есть набор чисел, нужно найти большее, но не ПРОСТО большее, а при условии, что его соседи в сумме образуют простое число. Не всё так просто, просто найти большее число довольно таки легко, здесь же (при данных условиях) может оказаться что 2>7 так как соседи 7 не удовлетворяют условию.

[GenniY]

Не всё так просто, просто найти большее число довольно таки легко, здесь же (при данных условиях) может оказаться что 2>7 так как соседи 7 не удовлетворяют условию.

Тебе уже всё написано!!!
В цикле условие ещё добавь на твое "простое" число. И Всё

Соседи i+1 и i-1.