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

Question

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

---

Answer 1

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