Uses crt;
var sum,k,i:integer;
begin
readln(k);
writeln;
sum:=0;
repeat
read(i);
if (i>0) and (i mod 10=5) then sum:=sum+i;
k:=k-1;
until k=0;
writeln(sum);
end.
----
Так как последовательность натуральных чисел, я ввела условие i>0 для суммы. Если подразумевается, что вводятся только положительные числа, это условие можно убрать.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.