[AXS]

Так, к слову - если дробное число получается при делении (а при делении(a,b:integer;) c:=a\b; результат всегда будет real ), то целесообразней использовать div - c:=a div b результат будет integer