Решить циклом: напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка).

Var x,y,z,k : integer;
begin
readln(x,y);
z:=x;
k:=0;
while z mod 8<>0 do z:=z+1;
while z<=y do
 begin
 write(z,' ');
 k:=k+1;
 z:=z+8;
 end;
writeln;
writeln('k = ',k);
end.

Пример:
10 100
16 24 32 40 48 56 64 72 80 88 96
k = 11