Напишите программу,которая в последовательности натуральных чисел определяет наибольшее число,кратное 3 и оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа.Введенные числа не превышают 30000.

varn,a,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to  n dobeginwriteln('vvedite ',i,' chislo');readln(a);if a < 30000 thenif (a mod 3 = 0) and (a mod 10 = 6)thenif max < a thenmax:=a;end;writeln('max=',max);end.