Untitled

program sarasas;
uses crt;

type saras = ^eile;   // rodykles tipas
     eile = record   // iraso tipas
         elem : string[100];    // eilutes tipas
         next, prev: saras;   // rodykles saras tipo laukas
            end;
            
procedure spausdinti(Prad:saras);
var temp:saras;
begin
writeln;
temp:=Prad;
if temp=NIL then writeln('Sarasas tuscias.');
while temp<>NIL do begin
  writeln(temp^.elem);
  temp:=temp^.next;
end;
writeln;
end;

function idejimas(var pask:saras; laik:eile ):saras;
var temp:saras;
begin
new(temp);
temp^.elem:=laik.elem;
temp^.prev:=pask;
temp^.next:=NIL;
if pask<>NIL then pask^.next:=temp;
idejimas:=temp;
end;

var Prad,   // saraso pradzia
    pask : saras; //saras tipo rodykles, tail - paskutinio el. rodykle
    n: string;
begin
 readln(n);
 idejimas(Prad,elem);
 spausdinti(Prad);
 readln;
end.