Помогите пожалуйста. №7
(Программа паскаль. Ветвление. Оператор if)

program z7;var x,y:integer;beginreadln(x,y);if (x>0) and (y>0) then writeln('I')else if (x>0) and (y<0) then writeln('IV')else if (x<0) and (y>0) then writeln('II')else if (x<0) and (y<0) then writeln('III');end.