program cherga;
uses crt;
type
   delem=^Telem;
   Telem=record
       inf: real;
       adr: Telem
   end;
var begq,endq: delem; value: real; i: byte;
{____________________________________________________________}
procedure addelem(var: real);
var
   p: delem;
begin
  new(p);
  p^.inf:=val;
  p^.adr:=nil;
  if endq=nil {якщо ствоpюїться пеpший елемент чеpги}
          then begq:=p
              {якщо ствоpюїться чеpговий елемент чеpги}
          else endq^.adr:=p;
  endq:=p;
end;
{______________________________________________________________}
procedure getdelel (var val: real);
var
   p: delem;
begin
  val:=begq^.inf;
  p:=begq;
  begq:=p^.adr;
  if begq=nil {якщо видаляїться останнўй елемент}
       then endq:=nil;
  dispose(p)
end;
{________________________________________________________________}

begin
  clrscr;
     {початковў встановлення вказўвникўв}
  begq:=nil;
  endq:=nil;
  {ствоpення чеpги з 10 елементўв}
  for i:=1 to 10 do
    begin
      wrileln('Введить ',i,' елемент');
      read(a);
      addel(a);
    end;

  {видалення чеpги з дpукуванням елементўв}
  while begq<>nil do
    begin
      getdelel(value);
      writeln('value=', value:5:3)
    end
end.