** экран вывести все числа от 1 до Х кратные 8 с помощью while( паскаль)

Question

На экран вывести все числа от 1 до Х кратные 8 с помощью while( паскаль)

Answer 1

Program n1;
var x,i: integer;
begin
i:=8;
readln(x);
while i<=x do<br>begin
write(i,' ');
i:=i+8;
end;
end.

Comments

Не работает

---

все работает