Напишите программу на языке Паскаль.
Даны два целых числа a и b, если а больше b, то из a вычесть b. Если b больше а, то к b прибавить 10. Если числа равны, то посчитать произведение этих чисел.

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

program CompareNumbers;
var
a, b, result: integer;
begin
writeln('Enter two integers:');
readln(a, b);

if a > b then
result := a - b
else if b > a then
result := b + 10
else
result := a * b;

writeln('Result: ', result);
end.