Помоги решить задачки в Паскаль

[DarkUser]

Сообщение от sergeyf1

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа n и k, n>1. Напечатать k десятичных знаков числа 1/n. При наличии двух десятичных разложений выбирается то из них, которое не содержит девятки в периоде. Программа должна использовать только целые переменные.

Истина где-то рядом:

r := n;
l := 10;

write('0.');
for i := 0 to k - 1 do
begin
d := 0;

while r < l do
begin
l := l - r;
inc(d);
end;
l := l * 10;
write(d);
end;