program p1;  //  название программы
 
var A:array[1..100] of integer; //переменная массива
    i,n:integer; //переменная цикла и размера массива
    s:integer;   //переменная для суммы
 
begin  //начало программы
write ('Vvedite razmer massiva  A: ');  //вывод на экран фразы
readln (n);                            // считываем с клавы размер массива
 
for i:=1 to n do begin
write ('A[',i,']='); readln (A[i]); end;// считываем с клавы элементы массива
 
write ('Vot vvedennyy vami massiv A:'); //вывод на экран фразы
for i:=1 to n do write (A[i],'  ');    //вывод на экран элементов массива
writeln;
 
s:=0;             //обнуляем переменную суммы
for i:=1 to n do // циклом идём по массиву
if A[i] mod 10 =5 then s:=s+A[i]; // подссчитываем сумму
 
writeln('Summa: ',s);  // выводим сумму на экран
 
readln;
end.