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')
else if (x<0) and (y>0) then writeln('II')
else if (x<0) and (y<0) then writeln('III');
end.