Вывести на экран наибольшее целое число в диапазоне от 0 до введеного, которое делится на 8.

Var k,i,j:integer;
begin
read(k);j:=0;
for i:=1 to k do
if i mod 8=0 then j:=i;
if j=0 then writeln('такого нет') else writeln(j);
end.