В массиве 9 чисел.Числа вводятся с клавиатуры. Найти сумму кратных 13.

Программа:

Pascal:

var

 arr: array[1..9] of integer;

 i, n: integer;

begin

 writeln('Введите массив: ');

 for i := 1 to 9 do begin

   readln(arr[i]);

   if arr[i] mod 13 = 0 then n := n + arr[i];

 end;

 writeln('Массив: ', arr);

 writeln('Сумма чисел, кратных 13: ', n);

end.