Дан одномерный целочисленный массив, а длиной n, определить сумму элементов этого массива, заканчивается на 5 — Pascal(Паскаль)

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.