1. Современное решение

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqInteger(ReadlnInteger).Where(t->t mod 10=5).Sum.Println
end.

Пример
3
15 25 24
40

2. Так все еще учат в большинстве (но не во всех!) школ

var
  i,t,s,n:integer;

begin
  Readln(n);
  s:=0;
  for i:=1 to n do begin
    Read(t);
    if t mod 10=5 then s:=s+t
    end;
  Writeln(s)
end.

#include
using namespace std;
int main()
{
int a,n,sum=0;
cin>>n;
for(int i=0;i{   
cin>>a;   
if(a%10==5) sum=sum+a;
}
cout<return 0;
}