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

program gg;
var x1,y1,x2,y2,ch,ch1:integer;
begin
writeln('vvedite x1, x2');
readln(x1);
writeln('vvedite y1');
readln(y1);
writeln('vvedite x2');
readln(x2);
writeln('vvedite y2');
readln(y2);
if (x1>0) and (y1>0)then
begin
 ch:=1;
writeln('1-chetvert');
end;
if (x1<0) and (y1>0)then
begin
ch:=2;
writeln('2-chetvert');
end;
if (x1<0) and (y1<0)then
begin
 ch:=3;
writeln('3-chetvert');
end;
if (x1>0) and (y1<0)then
begin
 ch:=4;
writeln('4-chetvert');
end;
if (x2>0) and (y2>0)then
begin
 ch1:=1;
writeln('1-chetvert');
end;
if (x2<0) and (y2>0)then
begin
ch1:=2;
writeln('2-chetvert');
end;
if (x2<0) and (y2<0)then
begin
 ch1:=3;
writeln('3-chetvert');
end;
if (x2>0) and (y2<0)then
begin
 ch1:=4;
writeln('4-chetvert');
end;
if (ch=ch1) then
writeln('chetverti ravni')
else
writeln('chetverti ne ravni');
readln;
end.

uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 15 do
writeln(i+10,'  ',i+10,'.4');
readln
end.

var x,y:integer;
begin
writeln('vvedite kkordinati tochki po x');
readln(x);
writeln('vvedite kkordinati tochki po y');
readln(y);
if (x>0) and (y>0) then writeln('tocka prinadlejit pervoj chetverti');
if (x<0) and (y>0) then writeln('tocka prinadlejit vtoroj chetverti');
if (x<0) and (y<0) then writeln('tocka prinadlejit tretiej chetverti');
if (x>0) and (y<0) then writeln('tocka prinadlejit chetvertoj chetverti');
readln;
end.

program gg;
var x1,y1,ch:integer;
begin
writeln('vvedite x1');
readln(x1);
writeln('vvedite y1');
readln(y1);
if (x1>0) and (y1>0)then
begin
 ch:=1;
writeln('1-chetvert');
end;
if (x1<0) and (y1>0)then
begin
ch:=2;
writeln('2-chetvert');
end;
if (x1<0) and (y1<0)then
begin
 ch:=3;
writeln('3-chetvert');
end;
if (x1>0) and (y1<0)then
begin
 ch:=4;
writeln('4-chetvert');
end;
readln;
end.