BEGIN
REPEAT
writeln('Simply unbelievable');
writeln('Do NOT let it go away');
writeln('Buy this game? <s/n>');readln(GameBought);
UNTIL GameBought = 's';
END.