11. Большая точность

Дана рациональная дробь m/n. Запишите её в виде десятичной дроби с точностью k знаков после запятой.
Код решения:
*****

var
n,m,k,i,dig:integer;

begin
   read(n,m,k);
   dig:=n div m;
   write(dig);
   for i:=1 to k do
   begin
       if i=1 then write('.');
       n:=(n-m*dig)*10;
       dig:=n div m;
       write(dig);
   end;
   writeln;
end.

*****