add:-write('pls eneter the first number:'),
      read(X),nl,write('pls eneter the second number:'),
      read(Y),Z is X+Y,
     write('the sum of the two no. is:'),write(Z),nl,add.