Помогите решить задачу срочно надо. Нужно сформировать массив из нее

Program rud;
var
x,b:real;
begin
x:=-10;
while x<=10 do begin
b:= abs(COS(x)-1);
writeln('cos',x,'=',b,' ');
x:=x+1;
end;
end.