Question

задача 1) Даны 2 числа.Если произведение этих чисел больше 0, то найти сумму этих чисел, иначе найти разность этих чисел 

задача 2) числа,a,b,c . Определить какое из чисел четноеb mod 2 =1
срочно
на паскаль!