uses crt;
type
  TPtr  = ^TElem;
  TElem = record
     Inf  : Real; {Inf может быть любого типа}
     LinkLeft : TPtr;
     LinkRight : TPtr;
  end;
const k=10;
var
  BegL, EndL, BegL2, EndL2, P, P2, Pk : TPtr;
  Value : Real;
  i : byte;
procedure OutputList(k:byte);
begin
  P:=BegL;
  i:=0;
  while (i<k) and (P<>nil) do
  begin
    writeln('Value= ',P^.Inf:6:2);
    P:=P^.LinkLeft;
    i:=i+1;
  end;
end;
procedure OutputList2(k:byte);
begin
  P:=BegL2;
  i:=0;
  while (i<k) and (P<>nil) do
  begin
    writeln('Value= ',P^.Inf:6:2);
    P:=P^.LinkLeft;
    i:=i+1;
  end;
end;
begin
  clrscr;
{ Создание первого списка }
  BegL := nil;
  EndL := nil;
  Pk:=nil;
  for i:=1 to k do
  begin
    New(P);
    P^.Inf:=i;
    P^.LinkLeft:=nil;
    if EndL = nil then
    begin
      BegL := P;
    end
    else
    begin
      EndL^.LinkLeft := P;
      P^.LinkRight:=Pk;
    end;
    EndL:=P;
    Pk:=P;
  end;
  P^.LinkLeft:=BegL^.LinkLeft;
  P:=BegL;
  P^.LinkRight:=EndL;
{ Создание второго списка и заполнение
его элементами первого в обратном порядке. }
  BegL2 := nil;
  EndL2 := nil;
  Pk:=nil;
  P2:=EndL;
  for i:=1 to k do
  begin
    New(P);
    P^.Inf:=P2^.Inf;
    P^.LinkLeft:=nil;
    if EndL2 = nil then
    begin
      BegL2 := P;
    end
    else
    begin
      EndL2^.LinkLeft := P;
      P^.LinkRight:=Pk;
    end;
    EndL2:=P;
    Pk:=P;
    P2:=P2^.LinkRight;
  end;
  P^.LinkLeft:=BegL2^.LinkLeft;
  P:=BegL2;
  P^.LinkRight:=EndL2;

  writeln('Первоначальный список:');
  OutputList(k);
  writeln;
  writeln('Обращенный список:');
  OutputList2(k);

{ Удаление первого списка }
 P:=BegL;
 for i:=1 to k do
 begin
  P:=P^.LinkLeft;
  Dispose(BegL);
  BegL:=P;
 end;
{ Удаление второго списка }
 P2:=BegL2;
 for i:=1 to k do
 begin
  P2:=P2^.LinkLeft;
  Dispose(BegL2);
  BegL2:=P2;
 end;

  readln;
end.

uses crt;
function stepen(num: real; step: integer):extended;
var
  tmp: extended;
  i: integer;
begin
  if step = 0 then
    stepen:=1
  else
  begin
    tmp:=1;
    for i:=1 to step do
      tmp:=tmp*num;
    stepen:=tmp;
  end;
end;

function factorial(num: integer): extended;
var
  tmp : extended;
  i: integer;
begin
  if num = 0 then
    factorial:=1
  else
  begin
    tmp:=1;
    for i:=1 to num do
      tmp:=tmp*i;
    factorial:=tmp;
  end;
end;

var
  sum, E, x: extended;
  k: integer;
begin
  clrscr;
  E:=1E-5;
  sum:=0;
  k:=0;
  repeat
    x:=(stepen(-1,k)*stepen(4,4*k+3))/(factorial(2*k+1)*(4*k+3));
    sum:=sum+x;
    inc(k);
  until abs(x) <= E;
  writeln('x = ',x);
  writeln('sum = ',sum);
  readln;
end.

Program Pr_6;
  Var X,E,Y,T,P,Q : REAL;
                      K : INTEGER;
Begin {Programmu sostavil Chuvstvin M.B; PT0502}
  Write('X=');
  Readln(X);
  Write('E=');
  Readln(E);
  K:=0;
  Y:=1;
  T:=1;
  P:=X*X*X/3;
  Q:=X*X*X;
  Repeat
    K:=K+1;
    Y:=-Y;
    Q:=Q*X*X*X*X;
    T:=T*(2*K+1)*(2*K);
    P:=P+(Y*K)/(T*(4*K+3))
  Until Abs(P)<E;
  Writeln('P=',P);
  Write('Rezultati poluchil Chuvstvin M.B; PT0502');
  Readln
End.