Дан массив целых чисел состоящий из 10 элементов, подсчитать количество элементов кратных 5

Var
n,i:integer;
mas: array [1..10] of integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
if mas[i] mod 5 = 0 then
n:=n+1;
end;
writeln('Количество чисел кратных 5: ',n);
end.

моделирование
метод познания, состоящий в
создании и исследовании моделей отражает

 модель
существенные с точки
зрения проводимого исследования свойства изучаемого объекта, явления или
процесса

материальная модель
представляет в наглядной форме объекты,
недоступные для непосредственного исследования

граф
совокупность непустого множества
вершин и наборов пар вершин (элементы модели соотносятся с вершинами)

информационная модель
представляет объекты и процессы в образной или знаковой форме, а также в форме таблиц, блок-схем

Const   
     n=5;
Var     
     s,i: integer;   
     a:array[1..n] of integer;
Begin   
     a[1]:=1;   
     a[2]:=2;   
     a[3]:=3;   
     a[4]:=4;   
     a[5]:=5;       
     s:=0;   
     for i:=1 to n do         
          begin                      
               s:=s+a[i];           
               writeln('Сумма элементов = ', s); {если тут, то вывод всех чисел на экран }                   end;           
         {если сюда вставить writeln('Сумма элементов = ', s); то тебе покажут тока ответ} 
End.