Вывести на экран номер четверти, которой принадлежит точка (x,y) ( ).

Begin
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 Writeln (‘III ’);
Readln;
End.