Напишите программу на языке Pascal, которая подсчитывает количество чисел кратных 8 в промежутке от n до 100

Предыдущий
вопрос Следующий
вопрос

program CountMultiplesOfEight;

var
n, count, i: integer;

begin
writeln('Enter a number: ');
readln(n);

count := 0;

for i := n to 100 do
begin
if i mod 8 = 0 then
count := count + 1;
end;

writeln('The number of multiples of 8 between ', n, ' and 100 is: ', count);
end.