Program z2;
uses crt;
var x,y:integer;
begin
writeln('Vvedite x i y');
readln(x,y);
if (x>0) and (y>0) then writeln('V 1 chetverty');
if (x<0) and (y>0) then writeln('V 2 chetverty');
if (x<0) and (y<0) then writeln('V 3 chetverty');
if (x>0) and (y<0) then writeln('V 4 chetverty');
readkey
end.