[skobanev]

Блин, простите идиота, пока писал уже все понял....

x:=(round(x/10)*10) ;