Составьте программу нахождения количества натуральных целых чисел, не превышающих 100 и кратных 5

Ответ:

Begin

Count:=0;

For i:=1 to 99 do

If i mod 5 =0 do

Count:=count+1;

Write(count);

End.