program multiplicationTableGame;

var
userAnswer, correctAnswer, num1, num2, score: integer;
playAgain: char;

begin
score := 0;

repeat
num1 := Random(10) + 1;
num2 := Random(10) + 1;
correctAnswer := num1 * num2;

writeln('What is ', num1, ' * ', num2, ' ?');
readln(userAnswer);
if userAnswer = correctAnswer then
begin
writeln('Correct!');
score := score + 1;
end
else
begin
writeln('Incorrect. The correct answer is ', correctAnswer);
end;
writeln('Your current score is ', score);
writeln('Do you want to play again? (Y/N)');
readln(playAgain);

until UpCase(playAgain) <> 'Y';

writeln('Thank you for playing the multiplication table game!');
writeln('Your final score is ', score);
end.