Даны два числа. Если они положительные, то найти их сумму. Если они отрицательные, то их произведение, если они имеют разные знаки, то найти сумму утроенного первого числа с удвоенным вторым.

//Pascalvar a, b: integer;beginwrite('Введите два числа: '); readln(a, b);if ((a < 0) and (b < 0)) then   writeln(a * b)elseif ((a > 0) and (b > 0)) then   writeln(a + b) else   writeln(a*3 + b*2);end.