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, показывает его на экране и проверяет ответ пользователя.