function Seguidilla(var cab,fin : Tpuntero);
var
  a:integer;
  aux: Tpuntero;
begin
  Writeln('ingrese un numero: ');{inicializacion de la adquisicion}
  Readln(a);
  aux:=cab;
  case aux^.next of
   nil: Writeln('secuencia vacia');
   else begin           {inicializacion del tratamiento}
    while aux^.next<>nil do
      aux:=aux^.next;
      if aux^.info>=a then
      Writeln(aux^.info);
    end;