Задача в Pascal + Блок схема. Ввести с клавиатуры переменные х и у Если х положительное ,...

Question

Задача в Pascal + Блок схема. Ввести с клавиатуры переменные х и у Если х положительное , у отрицательное, то найти и вывести на экран их удвоенное произведение.

Answer 1

Uses crt;
var x,y:integer;
begin
read(x);
read(y);
if x > 0 and y < 0  then
write(x*y*2);
end.
                                  ------------
                                  число  x  > 0
                              /                          \
                            /                             \
                          /                               \
                       да                               нет
                        /
                       /
                -----------
                     y < 0          \
               /                     нет
              /
            /
          да (вывести удвоенное)