Знайти добуток чисел кратних 5 в діапазоні от 1 до 100 ...

Нюра

Program Count;

Uses Crt;

var i,n:byte;

begin

     n:=0;

     for i:=1 to 100 do

            if (i mod 5)=0 then n:=n+1;

   writeln('Количество чисел кратных 5: ',n);

   readkey; 

end.