Play it for three times and we can get the final result.
number, guess: integer;
writeln('Wellcome to the game of snap.');
if guess>number then begin writeln('It''s too big! Please try again.'); end
if guess<number then begin writeln('It''s too small! Please try again!'); end
else begin writeln ('CONGRATULATIONS, you have chosen the right number."); end;
Please help to make changes.