Ввести 2 целых числа. Вывести их произведение, если они разных знаков и их сумму в противном случае. Написать программу, которая бы решила эту задачу.

program zz1;

var a, b:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / /вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / /вводим с клавиатуры второе число

read (b);

if a * b < 0 / / проверяем, если числа разных знаков, то произведение этих чисел будет отрицательным и получаем произведение чисел, иначе - сумму

then write (' произведение двух чисел = ', a * b) else write (' сумма двух чисел = ', a + b);

/ / выводим ответ в зависимости от правильности условия

end.