Переделать из цикла repeat until в цикл while do var e,a,i,FACTc,x,k,s,n: real;
c:integer;
begin
write('Введите x');
readln(x);
a:=x;
c:=3;
i:=1;
FACTc:=1;
repeat
e:=power(x,c);
repeat
FACTc:=FACTc*i;
i:=i+1;
until i>c;
n:=e/FACTc ;
if (c=3) or (c=7) or (c=11) then k:=-n+s
else k:=n+s;
if c=3 then s:=k+a
else s:=k;
c:=c+2;
until c>13;
writeln ('s= ', s)
end.

1.чтобы ввести данные в ячейку электронной таблицы необходимо щелкнуть на ней левой клавишей мыши. ячейка выделится более жирным контуром, после чего в нее можно начинать вводить данные.  для окончания ввода можно  воспользоваться клавишей  «enter» или щелкнуть мышью на другой ячейке. если данные в ячейку вводятся в первый раз, то для завершения ввода можно воспользоваться стрелками на клавиатуре, при этом автоматически выделится ячейка, расположенная рядом с данной ячейкой по направлению действия стрелки. для редактирования данных в ячейке нужно дважды щелкнуть на ней мышью. при редактировании данных можно пользоваться стрелками на клавиатуре и мышью для позиционирования курсора в ячейке.3.данные, которые вводятся в ячейку, автоматически отражаются также в строке формул. иногда бывает удобным осуществлять ввод прямо в строку формул. при начале ввода данных в ячейку на строке формулexcel   появляются дополнительные кнопки.