Найти количество натуральных чисел не превосходящих 100 и кратных 5

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) begin   var n:=0;   for var i:=1 to 100 do     if i mod 5=0 then n:=n+1;   println('Кратных 5 и меньше 100 всего ',n); end.