begin
   record format Fm ( integer a, b, c )
   record(Fm) name P == Nil
   Write(Addr(P), 0);  Newline
endofprogram