Вpascal + блок схема. ввести с клавиатуры переменные х и у если х положительное , у отрицательное, то найти и вывести на экран их удвоенное произведение.

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          \
               /                     нет
              /
            /
          да (вывести удвоенное)