Program Pascal Menentukan Kuadran menggunakan fungsi

program CariTitikOrdinat;
uses wincrt;
var
   X,Y : Integer;

   Function TitikOrdinat( A,B : integer): Integer;
   {I.S dua bilangan integer}
   {F.S titik ordinat terletak pada kuadran berapa}
   var Z : Integer;
   begin
       If (A=0) AND (Y=0) then TitikOrdinat:=0;
       If (A>0) AND (Y>0) then TitikOrdinat:=1;
       If (A<0) AND (Y>0) then TitikOrdinat:=2;
       If (A<0) AND (Y<0) then TitikOrdinat:=3;
       If (A>0) AND (Y<0) then TitikOrdinat:=4; 
      
  
   end;

begin
     write('ketik titik absis : '); Readln(X);
     write('ketik titik ordinat : '); readln(Y);
     write('jadi (',X,',',Y,') berada pada kuadran ke ',TitikOrdinat(X,Y));
end.