Дана последовательность из N натуральных чисел. Определить сумму чисел этой последовательности, оканчивающихся на 5.

program z1;var  N, S, k, a: integer;begin  Write('Введите N:');  readln(N);  S := 0;  k := 1;  while k <= N do   begin    write('Введите a',k,': ');    readln(a);    if a mod 10 = 5 then S := S + a;    k := k + 1;  end;  writeln('Сумма чисел, оканчивающихся на 5 = ', S);end.