ПОМОГИТЕ ПОЖАЛУЙСТА! Задачу решить циклом:Напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, выводит на экран и подсчитывает количество натуральных чисел, кратных восьми, на отрезке [х,у] (включая концы отрезка).

var x,y,z,k : integer;beginreadln(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 10016 24 32 40 48 56 64 72 80 88 96k = 11