/* kb7.pl */

     greetings :- write('Write Your Name, please:  '),       /* a */
                 read(N),                                  /* b */
                 nl,                                       /* c */
                 write('Hello  '),                           /* d */
                 write(N),                                 /* e */
                 nl,
                 write('Welcome to our system!').            /* f */