{Файл: progam_stud.pas
Задача:
  Дан целочисленный массив найти количество элементов кратных пяти
Автор:
   
Дата:
  }
const
  N=5;  
var 
a         : array [1..N] of integer;
i, k      : integer;

begin
  {Ввод}
  writeln ('введите массив');
  for i:=1 to N do
    begin
     write ('введите a[',i,']=',a[i],'  '); 
     readln(a[i]);
    end;
 writeln ();
 
 //решение
 k:=0;
 writeln ('элементы массива кратные 5');
 for i:=1 to N do
    begin
      if (a[i] mod 5 = 0) then
        begin
            write ('a[',i,']=',a[i],'  '); 
            k:=k+1; //подсчет количества
        end;
    end;
    writeln ();
 
 //вывод
 writeln ('количество элементв кратное пяти = ', k);  
end.