Напишите программу, которая в последовательности целых чисел определяешь сумму чисел, а...

Напишите программу, которая в последовательности целых чисел определяешь сумму чисел, а также количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000

var

A: array [1..1000] of Integer;

i, ik, s, c: Integer;

begin

WriteLn ('Введите последовательность целых чисел, 0 для окончания ввода: ');

i := 0;

repeat

i := i + 1;

ReadLn (A [i]);

until A [i] = 0;

ik := i - 1;

s := 0;

c := 0;

for i := 1 to ik do begin

s := s + A [i];

if (A [i] mod 5 = 0) or (A [i] mod 9 = 0) then

c := c + 1;

end;

WriteLn;

WriteLn ('Сумма чисел = ', s);

WriteLn ('Количество чисел, кратрных 5 или 9 = ', c);

end.