Question

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

Answer 1

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