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

Uses crt;

var n, i, s: integer;

a: array [1 ... 1000] of integer;

begin writeln ('Введите количество чисел последовательности') ;

read (n) ;

s : = 0;

writeln ('Введите числа') ;

for i : = 1 to n do

begin

read (a[i]) ;

a[n] : = 0;

end;

writeln () ;

for i : = 1 to n do

write (a[i], ' ') ;

writeln () ;

for i : = 1 to n do

s : = s + a[i];

writeln ('Сумма=', s) ;

end.