program processes(output);
const uinfstart=2359296;ausers=-2134900645;
type
      uinff=packed array[0..6] of char;
      uinf_p_t=record
               dummyp:integer;
               case boolean of
                  true:(paddr:integer);
                  false:(pval:^uinff)
               end;
      int_p_t=record
              dummyi:integer;
              case boolean of
                  true:(iaddr:integer);
                  false:(ival:^integer)
              end;
var
      i:integer;
      int_ptr:int_p_t;
      uinf_ptr:uinf_p_t;
      user:uinff;

begin
      uinf_ptr.paddr:=uinfstart;
      user:=uinf_ptr.pval^;
      user[0]:=' ';
      writeln(user);
      int_ptr.iaddr:=ausers;
      i:=int_ptr.ival^;
      writeln('There are ',i:2,' users');
end.



































                                   1