[triton]

Помогите кто чем может, или пасоветуйте полезного чего, тут такая ситуация пишу я прогу прописую такое :
.........
var
z,c:integer;
r:real;
.........
c:=25;
z:=85;
r:=c/z;
.........
в резудьтате r=0 , если 25/85=0,2941... при команде mod : r=2941...
(значения c,z вводяться пользоватилем),нужно что-бы r=0.2941...