Паскаль!!!!!! Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, то
найти их произведение. Иначе – найти их сумму. И желательно блок схему

x, y: integer;beginreadln(x, y);if (x > 0) or (y > 0) thenwriteln(x * y)elsewriteln(x + y);end.С рисованием туго тут уж сам.