Вводится последовательность натуральных чисел, не превосхо-дящих 20000. ноль – признак конца. требуется вывести максимальное из произведений двух элементов последовательности, которое делится на 26.

Программа на паскале:

const
  MAX_N = 20001;

var
  a: array[1..MAX_N] of integer;
  n, i, j, p, maxp: integer;
  
begin
  i := 1; 
  read(a[i]);
  while a[i] <> 0 do
  begin
    inc(i);
    read(a[i]);
  end;
  n := i - 1;
  maxp := 0;
  for i := 1 to n do
    for j := 1 to n do
    begin
      p := a[i] * a[j];
      if (p mod 26 = 0) and (p > maxp) then 
        maxp := p;
    end;
  if maxp = 0 then writeln('Not found')
              else writeln(maxp);
end.