Составьте программу которая находит все числа на промежутке от 1 до 50 , кратные 8 , использую циклический алгоритм

var i: integer;

begin

for i:=1 to 50 do

if i mod 8 = 0 then write(i,'  ')

end.