1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел , кратных 6. Программа получает на вод натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность).
Программа должна вывести одно число: сумма четырехзначных чисел , кратных 6.
2) Напишите программу , которая в последовательности натуральных чисел определяет максимальное число, кратно 3 и оканчивающиеся на 3. программа получает на вход кол-во чисел в последовательности, а заем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающиеся на 3. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число- максимальное число, кратное 3 и оканчивающиеся на 3.

1)Program n1;var a: integer;sum: real;beginreadln(a);sum:=0;while a<>0 dobeginif (a>999) and (a<10000) and (a mod 6=0) then sum:=sum+a;readln(a);end;writeln(sum);end.2)Program n2;var a,max,i,n: integer;beginreadln(n);max:=-30000;for i:=1 to n dobeginreadln(a);if (a>max) and(a mod 3=0) and (a mod 10=3) then max:=a;end;writeln(max);end.