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

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