Необходимо сделать завтра

// Дан диапазон от 1 до 200 - целочисленны
// Написать код который будет выводить в консоль (на печать) каждое 5 значение из этого диапазона
// Написать код который будет выводить в консоль (на печать) каждое число которое делится на 4 без остатка из этого диапазона
//Что делает приведенный код на Delph

var
i:integer
begi
for i:=0 to 5 d
i:=i+i
if(i = 2) then begi
println(IntToStr(i))
end
end
en
}