Составить программу на языке Паскаль для задачи: ввести два целых числа Х и Y и выяснить, что больше их сумма или произведение. в качестве результата печатать "сумма" или "произведение" или "равно"
program CompareNumbers; var X, Y, Sum, Product: integer; begin writeln′Введитедвацелыхчисла:′'Введите два целых числа:'′Введитедвацелыхчисла:′; readlnXXX; readlnYYY; Sum := X + Y; Product := X * Y; if Sum > Product then writeln′Сумма′'Сумма'′Сумма′
else if Product > Sum then writeln′Произведение′'Произведение'′Произведение′
else writeln′Равно′'Равно'′Равно′; end.
var
X, Y, Sum, Product: integer;
begin
writeln′Введитедвацелыхчисла:′'Введите два целых числа:'′Введитедвацелыхчисла:′;
readlnXXX;
readlnYYY;
Sum := X + Y;
Product := X * Y;
if Sum > Product then
writeln′Сумма′'Сумма'′Сумма′ else if Product > Sum then
writeln′Произведение′'Произведение'′Произведение′ else
writeln′Равно′'Равно'′Равно′;
end.