program Quarters;
var x,y:real;
begin
 writeln ('Version 0.1.1');
 writeln ('Добро пожаловать в определитель четверти! Введите значения х и у. Программа покажет, в какой четверти находится данная точка.');
 write ('x=');
 readln (x);
 write ('y=');
 readln (y);
 if (x>0) and (y>0) then
 writeln ('I quarter');
 if (x<0) and (y>0) then
 writeln ('II quarter');
 if (x<0) and (y<0) then
 writeln ('III quarter');
 if (x>0) and (y<0) then
 writeln ('IV quarter');
end.