{* Задача 15 *}

Unit MASSIV15;
Interface
Implementation
Begin
 writeln('Массив Т15[N] определить сумму и количество элементов массива кратных 5. 0<N<30');
End.

Program massiv;

Uses massiv15.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  t15 : Array[1..30] Of integer;
  b   : integer;
  i   : integer;
  c   : integer;
  n   : integer;
  d   : integer;
  ost : real;
Begin
  c := 0;
  d := 0;
  writeln('vvedite n');
  readln(n);
  writeln('wwedite elementy massiva cherez enter');
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    readln(t15[i]);
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    b := t15[i] Mod 5;
    If b = 0 Then
      c := c + 1;
    If b = 0 Then
      d := d + t15[i];
  End;
  writeln('summa =', d, ' kolichestvo =', c);
  readln; {* Ждем подтверждения пользователя *}
End.