дроби, перевести дробь Опции

[Bard]

Помогите мне перевести обычную дробь в десятичную ...вот кое что есть.

var
ar:array[1..2000]of integer;
a,c,d,b:longint;
begin
readln(a);readln(b);
repeat
inc(d);
if a>b then begin ar[d]:=a div b; a:=a mod b; end;
a:=a*10;
until (a=0) or (d=2000);
for c:=1 to 2000 do 
write(ar[c]);
end;
end.

но эта прога не определяет место запятой и если есть повторяющиеся числа после запятой то их не записывает в таком виде:

1/3=0.(3)
2/3=0.(6)
1/7=0.(142857) и т.д

Большое спс за ранее...

[volvo]

А ты убери строку

a := 7; b := 30;

, иначе у тебя всегда будет вычисляться 7/30, независимо, от того, что ты введешь...