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

Question

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

Answer 1

X, y: integer;
begin
readln(x, y);
if (x > 0) or (y > 0)
 then
writeln(x * y)
else
writeln(x + y);
end.
С рисованием туго тут уж сам.