Найти максимальное произведение двух различных элементов последовательности не кратное 15

var
i, a, n, res : integer;
max, max 2, max3, max3 2, max5, max5 2 : integer;
begin
max := 0; f/ наибольший элемент, не кратный ни 3-м, ни 5-ти 
mах_2 := 0; // второй максимум, не кратный ни 3-м, ни 5-ти 
max3 := 0; // наибольший элемент, кратный 3-м и не кратный 5-ти 
max3_2 0; // второй максимум, кратный 3-м и не кратный S-ти 
max5 := 0; // наибольший элемент, кратный 5-ти и не кратный 3-м 
max5 2 := 0; // второй максимум, кратный 5-ти и не кратный 3-м
readln (N) ; // считываем
for i := 1 to N do // перебирает все элементы последовательности
begin
readln(a): считываем очередной элемент // ишем максимум и второй максимум, не кратные 3-м и 5-ти 
if (a mod 3 <> 0) and (a mod 5 <> 0) then
if a > max then 
begin
max 2 := max; 
max := a
end 
else
if a > max_2 then
max 2 := a;
// ищем максимум и второй максимум, кратный 3-м и не кратный 5-ти 
if (a mod 3 = 0) and (a mod 5 <> 0) then
if a > max3 then 
begin
max3_2 := max3; 
max3 := a
end 
else
if a > max3_2 then
max3_2 := a;
// ищем максимум и второй максимум, кратный 5-ти и не кратный 3-м 
if (a mod 5 = 0) and (a mod 3 <> 0) then
if a > max5 then
begin
max5_2 := max5; 
max5 := a
end 
else
if a > max5_2 then
max5_2 := a
end; // Ищем максимальное произведение среди 5-ти вариантов 
res = max * max 2;
if max * max5 > res then
res := max * max5;
if max max3 > res then
res := max * max3;
if max3 * max3_2 > res then
res := max3 * max3_2;
if max5 * max5_2 > res then
res := max5 * max5_2;
writeln(res)
end