Code:

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

For i:=0 to Maximum do if i mod step = 0 then

begin

end;