Версия для печати темы

program laba2;
uses crt;
var x, eps: real;
   y, S, a, k: real;
procedure Summa(x,eps:real; var s:real);
begin
  s:=1-(3/2)*x;{тоже замениш на свои(это сумма первых двух чисел последовательности}
   k:=2;{чтобы не считать первые 2 потому что точности точно не соответствуют}
   a:=-x*3/2;{первый значимый член}
while (abs(a)>eps) do
       begin
       a:=-a*x*(2*k+1)/(2*k);{Рекурсивно вычисляем каждый последующий член?разницу между твоими ищи сам}
       s:=s+a;
       k:=k+1;
       end;
end;
begin
clrscr;
repeat
writeln(Введите х');
writeln('‚Введите точность eps');
read(x, eps);
    if (abs(x)<1) and (eps<1) then
     begin
       y:=1/sqrt(exp(3*ln(1+x)));
       writeln('y=',y);
       Summa(x,eps,s);
       writeln('S=',s);
     end
   else
  writeln('ЌҐўҐа­лҐ ¤ ­­лҐ');
  until (abs(x)<1) and (eps<1);
readln;                                                                        
end.