Вводится последовательность натуральных чисел, не превосхо-дящих 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.