Составить программу для вычисления значения выражения max (x+y xy)+2 паскаль

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

Программа для вычисления значения выражения max((x + y), (x * y)) + 2 на языке Pascal может выглядеть следующим образом:

program CalculateExpression;
var
x, y, result: integer;
begin
// Ввод значений переменных x и y
write('Введите значение x: ');
readln(x);
write('Введите значение y: ');
readln(y);
// Вычисление значения выражения
if (x + y) > (x * y) then
result := (x + y)
else
result := (x * y);
result := result + 2;
// Вывод результата
writeln('Значение выражения max((x+y), (x*y)) + 2 равно: ', result);
end.

Эта программа сначала запрашивает у пользователя значения переменных x и y, затем вычисляет значение выражения max((x + y), (x * y)) + 2 и выводит результат на экран.