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