Составить программу на языке Паскаль для задачи: ввести два целых числа Х и Y и выяснить, что больше их сумма или произведение. в качестве результата печатать "сумма" или "произведение" или "равно"

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

program CompareNumbers;
var
X, Y, Sum, Product: integer;
begin
writeln('Введите два целых числа:');
readln(X);
readln(Y);
Sum := X + Y;
Product := X * Y;
if Sum > Product then
writeln('Сумма')
else if Product > Sum then
writeln('Произведение')
else
writeln('Равно');
end.