program g;

type
   tData = string[80];
   tHtd = ^Htd;
   Htd = record
      data: tData;
      next: tHtd;
   end;
   stek = tHtd;

var
   d: tData;
   s: stek;
   f1, f2: text;

procedure Init(var s: stek);
begin
   s := nil;
end;

function IsE(s: stek): Boolean;
begin
   Result := s <> nil;
end;

procedure puch(var s: stek; d: tData);
var
   p: stek;
begin
   new(p);
   p^.data := d;
   p^.next := s;
   s := p;
end;


procedure pop(var s: stek; var d: tData);
var
   p: stek;
begin
   d := s^.data;
   p := s;
   s := s^.next;
   dispose(p);
end;

begin
   Assign(f1, 'словарь.txt');
   Reset(f1);
   assign(f2, 'g.txt');
   Rewrite(f2);
   Init(s);
   while not eof(f1) do 
   begin
      readln(f1, d);
      puch(s, d);
   end;
   close(f1);
   while Ise(s) do 
   begin
      pop(s, d);
      writeln(f2,d);
   end; 
   close(f2);
end.