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

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