Оператор циклов.Паскаль

[Anatole]

Ам тя
Вы правильно написали для синуса. для косинуса я поправил вашу программу. Должна считать.

program text3;
var I:integer;
    x,sum,chis:real;
    const eps=(1E-10);
begin
 writeln('vv x'); readln(x);
 sum:=1; chis:=-x*х/2;
 i:=3;
  repeat
   sum:= sum+chis;
   chis:=-chis*x*x/i/(i+1);
   I:=I+2;
  until
   abs(chis/sum)<eps;
   writeln(sum,cos(x));
   end.