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

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