pascal 问题用二维数组

完整的程序如下：
var m,n,i:longint;
begin
readln(m,n);
write(m div n,'.');
for i:=1 to 10 do
begin
m:=m mod n * 10;
if i4 then writeln(m div n + 1)
else writeln(m div n);
end.