Помогите разобраться с загрузкой. Из-за округления определенный процент теряется.
Пробовал real, но у него свои "причуды"
program gauge_sample;
var gauge_w, gauge_h: integer;
procedure draw_gauge(progress: integer);
begin
setcolor(160,160,160);
drawrect(5, 5, gauge_w+3, gauge_h+3);
setcolor(90,90,90);
fillrect(7, 7, progress*(gauge_w/100), gauge_h);
end;
begin
//задаем размеры:
gauge_w:=getWidth-14;
gauge_h:=10;
//рисуем прогрессбар
draw_gauge(100);
repaint;
repeat until GetKeyClicked=KE_STAR;
end.