Vtc tính tổng các số có chữ số tận cùng là 5

uses crt;
var t,i,n:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
         if a[i] mod 10 =5 then inc(t,a[i]);
      end;
   writeln(‘Tong: ‘,t);
readln
end.