program ups;
uses crt;
type

fifo=^ch;
ch=record
next:fifo;
data:string;
end;
var
begQ:fifo;
endQ:fifo;
sim:string;
a:integer;

procedure Sozd(val:string);
    var p:fifo;
   begin
   clrscr;
   New(p);
   p^.data:=val;
   p^.next:=nil;
   begq:=p;
   endq:=p;
   write('sozdali');
end;

procedure add(sim:string);
    var p:fifo;
    begin
    new(p);
    p^.data:=sim;
    P^.next:=nil;
    endQ^.next:=p;
    endQ:=p;
    write(sim);

end;
 
procedure Ud(val:string);
    var p:fifo;
    Begin
    Val:=begQ^.data;
    p:=begQ;
    BegQ:=p^.next;
    dispose(p);
    Write(Val);
end;
begin
    begQ:=nil;
    endQ:=nil;
    while sim<>#13 do begin
sim:=readkey;
sozd(sim);
    end;
writeln('Vvedite comandu');
readln(a);
if a=1 then begin
while sim<>#13 do begin
    sim:=readkey;
    add(sim);
    end;
    end;
    writeln('Vvedite comandu');
    readln(a);
if a=2 then begin
Writeln('Budet udaljon element');

readln;
end.

program fifo_an;
type fifo=^ch;
    ch=record
          data:integer;
          next:fifo;
       end;

var nachalo:fifo;
   p,last:fifo;
   a,b,x:integer;

begin
  writeln('vvedite a i b');
  readln(a,b);
  assign(input,'in.txt');reset(input);
  assign(output,'out.txt');rewrite(output);
  nachalo:=nil;
  last:=nil;
  while not eof do
  begin
     read(x);
     if nachalo=nil then
     begin
        new(nachalo);
        nachalo^.data:=x;
        nachalo^.next:=nil;
        last:=nachalo;
     end else
        begin
           new(p);
           p^.data:=x;
           p^.next:=nil;
           last^.next:=p;
           last:=last^.next;
        end;
  end;
  close(input);
  p:=nachalo;
  while p<>nil do
  begin
     if p^.data<a then writeln(p^.data);
     p:=p^.next;
  end;
  p:=nachalo;
  while p<>nil do
  begin
     if (p^.data>=a) and (p^.data<=b) then writeln(p^.data);
     p:=p^.next;
  end;
  p:=nachalo;
  while p<>nil do
  begin
     if p^.data>b then writeln(p^.data);
     p:=p^.next;
  end;
end.