Создайте программу на паскале, которая генерирует случайным образом простой пример типа b+c и показывает его на экране. А затем пользователь должен ввести ответ на него. Программа должна проверить его ответ. Если ответ верный, то ввести ПРАВИЛЬНО, если нет, то ввести какой д\б правильный ответ

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

program RandomMathProblem;
var
operand1, operand2, result, answer: Integer;
operator: Char;
begin
Randomize;
operand1 := Random(10) + 1; // Генерация случайных чисел от 1 до 10
operand2 := Random(10) + 1;
case Random(3) of // Генерация случайного оператора: +, -, *
0: operator := '+';
1: operator := '-';
2: operator := '*';
end;
// Вывод примера на экран
Write('Решите пример: ', operand1, ' ', operator, ' ', operand2, ' = ');
// Вычисление правильного ответа
case operator of
'+': result := operand1 + operand2;
'-': result := operand1 - operand2;
'*': result := operand1 * operand2;
end;
// Ввод ответа пользователя
ReadLn(answer);
// Проверка ответа
if answer = result then
WriteLn('Правильно!')
else
WriteLn('Неверно. Правильный ответ: ', result);
end.

Эта программа генерирует случайный пример типа a+b, a-b или a*b, показывает его на экране и проверяет ответ пользователя.