Как в программе free pascal создать программу которая задает вопросы или загадки если отвечаешь верно он говарит верно и и задает след вопрос а если отвечаешь не верно от пишит не верно и задает след вопрос

Предыдущий
вопрос Следующий
вопрос

Вот пример программы на языке программирования Free Pascal, которая задает вопросы и проверяет ответы пользователя:

program QuizGame;
var
answer: string;
begin
writeln('Ответьте на вопрос:');
writeln('Что такое столица Франции?');
readln(answer);
if answer = 'Париж' then
begin
writeln('Верно!');
writeln('Следующий вопрос:');
writeln('Сколько планет в Солнечной системе?');
readln(answer);
if answer = '8' then
writeln('Верно!')
else
writeln('Неверно. Правильный ответ: 8');
end
else
writeln('Неверно. Правильный ответ: Париж');
end.

Вы можете расширить эту программу, добавив больше вопросов и ответов.