Дана последовательность из n-целых чисел. Найти сумму всех чисел кратных 5. На языке Паскаль​

Программа:

{Free Pascal Compiler version 3. 0. 4+dfsg-23 [2019/11/25] for x86_64}

{Copyright (c) 1993-2017 by Florian Klaempfl and others}

{Target OS: Linux for x86-64}

program test;

Uses Math;

var

A : array of integer;

N, S, i : integer;

begin

Randomize;

S := 0;

write('Укажите длину последовательности: ');

Readln(N);

{Генерация и печать массива}

SetLength(A, N);

for i := 1 to N do begin

A[i] := Random(50);

write(A[i], ' ');

end;

writeln; writeln('------------------------------');

for i := 1 to N do

{Определение кратности элемента массива числу 5}

if A[i] mod 5 = 0 then begin

{Вывод на экран этого числа}

write(A[i], ' ');

{Подсчет суммы чисел}

S := S + A[i];

end;

writeln;

{Вывод на экран суммы}

writeln('Сумма - ', S);

end.

Программа просит ввести пользователя число, длину генерируемой последовательности. Затем создается массив нужной длины, заполняется значениями от 0 до 50. Затем во втором цикле просматривается каждый элемент массива, - если он кратен 5, то число выводится на экран и суммируется.

В конце программа выводит итоговую сумму найденных элементов.

Результат выполнения программы: