Помогите, пожалуйста с номером 40. Нужно написать программу в Pascal, используя цикл repeat until. Первая часть есть:

program a1;
var y, i, a, x: integer;
begin
writeln ('введите значение x');
readln (x);
y:=0;
i:=x;
a:=cos (x);
repeat
y:=y+a

если надо не как в задании лучше напиши

program a1;var y, a, x, n, i,b: integer;beginwriteln ('введите значение x и n');readln (n);y:=0;i: = x;a:=cos (x);repeaty:=y+a;i:=i*x;a:=cos(i);inc(b);until bi >=10) dowriteln(y);end.