Ответ:

Конечно! Вот программа, написанная на Pascal ABC, которая вычисляет выражение для заданного аргумента или случайно сгенерированного целого числа от 1 до 99:

program ExpressionEvaluation;

uses crt, sysutils;

function EvaluateExpression(arg: Integer): Real;

begin

 // Expression to be evaluated

 EvaluateExpression := (arg * arg) + (2 * arg) - 5;

end;

procedure EvaluateWithArgument();

var

 arg: Integer;

 result: Real;

begin

 Write('Enter the value of the argument: ');

 ReadLn(arg);

 result := EvaluateExpression(arg);

 WriteLn('Result: ', result:0:2);

end;

procedure EvaluateWithRandomArgument();

var

 arg: Integer;

 result: Real;

begin

 Randomize;

 arg := Random(99) + 1; // Generate a random number between 1 and 99

 WriteLn('Random Argument: ', arg);

 result := EvaluateExpression(arg);

 WriteLn('Result: ', result:0:2);

end;

begin

 ClrScr;

 // Evaluate with an arbitrary argument

 EvaluateWithArgument();

 // Evaluate with a random argument

 EvaluateWithRandomArgument();

 ReadLn;

end.

Объяснение:

Эта программа определяет функцию EvaluateExpression, которая принимает аргумент и оценивает заданное выражение (arg * arg) + (2 * arg) - 5. Затем она предоставляет две процедуры, EvaluateWithArgument и EvaluateWithRandomArgument, для оценки выражения для введенного пользователем аргумента или случайно сгенерированный аргумент, соответственно.

Обратите внимание, что эта программа написана на Pascal ABC, современном диалекте Pascal, который поддерживает дополнительные функции, такие как ReadLn и WriteLn. Убедитесь, что у вас установлен компилятор Pascal ABC для запуска этого кода.