Помогите срочно

Используя оператор repeat until ввчислить сумму S=1+6/7/1 6/7+6/7/2 5/7+...+6/7/n

program abc;

var s:real;

i,n:integer;

begin

readln(n);

repeat  

for i:=1 to n do  

S:=s+6/7/n

until i=n ;

writeln(s);

end.