const
 max = 49;
 {NOTE: max must be one less than actual value}

type

 queuelement = integer;

 queue = record
   front,
   rear:  integer;
   status:  (full,empty);
   space: array[0..max] of queuelement;
 end;

procedure print(var out: text; e: queuelement);
{+--- on entry - queue is defined and e exists
|    on exit  - e is written in readable form to file 'out'
+-----------------------------------------------------------}

begin
writeln (e:4);
end;