Uses Crt;
type Inf = Real;

   Ptr = ^EL;
   EL = record
      Dn : Inf;
      Nx : Ptr;
   end;

  List = object
  Last, First : ptr;
  Count : integer;

  Constructor Init;
  Destructor Done;

  Procedure Delenie;
  Procedure Add_End (D : Inf);
  Procedure Add_Head (D : Inf);
  Procedure Clear;
  Procedure EraseElement (p : ptr);
  Procedure Print;
  end;

  Constructor List.Init;
  begin
     Count := 0;
     First := nil;
     Last := nil;
  end;

  Destructor List.Done;
  begin
     Clear;
  end;

  Procedure List.Clear;
     begin
        EraseElement(First);
        Count := 0;
        Last := nil;
     end;

  Procedure List.EraseElement(p : ptr);
  begin
     if p <> nil then
     begin
        EraseElement(p^.Nx);
        Dispose(p);
        p := nil;
    end;
  end;

  Procedure List.Add_Head(D : Inf);
  var p, q : Ptr;
  begin
     New(p);
     p^.Dn := D;
     p^.Nx := q;
     q := p;
  end;

  procedure List.Add_End(D : Inf);
  var p : Ptr;
  begin
     New(p);
     p^.Dn := D;
     p^.Nx := nil;
     if Last = nil then
     begin
        First := p;
        Last := p;
     end
     else
     begin
        Last^.Nx := p;
        Last := p;
     end;
     Inc(Count);
  end;

  Procedure List.Print;
  var p : Ptr;
  begin
     p := First;
     While p <> nil do
     begin
        write(p^.Dn : 4,' ');
        p := p^.Nx;
     end;
     writeln;
  end;

=====================================================
  Procedure List.Delenie;
  var q, s, c : ptr;
  Chastnoe, a, b : inf;
  begin
     a := First^.Dn;
     q := First^.Nx;
     b := s^.Dn;
     If a > b then
     begin
     Chastnoe := a / b;
     s := q^.Nx;
     s := nil;
     end
     else
     writeln('Help plz;) ');
  end;
=====================================================

  var L1 : List;
      A : integer;

  BEGIN
  ClrScr;


{$I+}
     Assign(input, 'input.txt');
     Reset(input);
{$I-}
    while not EoF do
    begin
       Read(A);
       {L1.Add_Head(A);}
       L1.Add_End(A);
    end;
    writeln('Pamyati DO= ',MemAvail);
        writeln;
        L1.Print;
        L1.Delenie;
        Close(Input);
        L1.Done;
        writeln;
        writeln('Pamyati POSLE= ',MemAvail);
        readln;
  END.

Procedure List.Delenie;
var
 Chastnoe, a, b : inf;
 pp: ptr;
begin
 pp := first;
 a := pp^.Dn; { берем первый элемент }
 pp := pp^.Nx; { перемещаемся ко второму }
 b := pp^.Dn; { берем второй элемент }
 pp := pp^.Nx; { перемещаемся к третьему }

 If (a > b) and (abs(b) > 10E-6) then begin { на ноль не делим }
   Chastnoe := a / b;
   pp^.Dn := Chastnoe; { результат - в третий элемент }
 else begin
   { вот тут немного условие неясно, но я думаю,
      по аналогии разобраться можно }
 end;
end;

Procedure List.Add_Head(D : Inf);
var p, q : Ptr;
begin
 New(p);
 p^.Dn := D;
 p^.Nx := q;
 If First = nil Then Last := p; { <--- Это было упущено }
 q := p;
 Inc(Count); { <--- Это тоже }
end;

procedure List.Add_End(D : Inf);
var p : Ptr;
begin
 New(p);
 p^.Dn := D;
 p^.Nx := nil;
 if Last = nil then First := p
 else Last^.Nx := p;

 Last := p;
 Inc(Count);
end;

else {2 sly4ai - zamena pervbIx elementov ix symmoi}
     begin
        p := first;
        a := p^.Dn;
        p := p^.Nx;
        b := p^.Dn;
        Symma := a + b;
        p := first;
        a := p^.Dn;
        p^.Dn := Symma;
        p := p^.Nx;
        b := p^.Dn;
        p^.Dn := Symma;
     end;

Procedure List.Delenie;
var
Chastnoe, a, b : inf;
pp: ptr;
begin
pp := first;
a := pp^.Dn; { берем первый элемент }
pp := pp^.Nx; { перемещаемся ко второму }
b := pp^.Dn; { берем второй элемент }
pp := pp^.Nx; { перемещаемся к третьему }

If (a > b) and (abs(b) > 10E-6) then begin { на ноль не делим }
  Chastnoe := a / b;
  pp^.Dn := Chastnoe; { результат - в третий элемент }
else begin
  p := first; p^.Dn := a + b;
  p := p^.Nx; p^.Dn := a + b;
end;
end;