Напишите программу,которая в последовательности натуральных чисел определяет наибольшее число ,кратное 3и оканчивающееся на 6.программа получает на вход количество чисел в последовательности ,а затем сами числа.в последовательности всегда имеется число кратное 3 и оканчивающееся на 6. количество чисел не превышает 1000.введенные числа не превышают 30000. программа должна вывести одно число : наибольшее число,кратное 3 и оканчивающееся на 6.входные данные: 5,18,126,165,36,135.выходные данные: 126
begin
writeln('Введите количество цифр');
read(n);
max:=0;
repeat
writeln('Введите число. (Осталось ввести ',n, ')');
readln(x);
if (x mod 3=0) and (x mod 10=6) and (abs(x)>max) then max:=x;
n:=n-1;
until n=0;
writeln('Максимальное число, кратное 3-м и заканчивающееся на 6 = ',max);
end.