ini adalah Kordinat 1

uses crt;

var
        x:Integer;
        y:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai x: ');
        READLN(x);
        WRITELN('Masukan Nilai y: ');
        READLN(y);
        if(x>=0) and (y>=0) Then WRITELN('Kaudran1')
        Else
                If(x>=0) and (y<=0) THEN WRITELN('Kuadran4')
                Else
                        If(x<=0) and (y>=0) THEN WRITELN('Kuadran2')
                        Else
                                If(x<=0) and (y<=0) THEN WRITELN('Kuadran3');
        If (x=25) then
                Begin;
                WRITELN('Ini Sepuluh');
                y:= y + 16;
                End;
        x := 15;
        if ( x < 20) Then
                Begin;
                WRITELN('X Kurang dari DuaPuluh');
                y := 16;
                End;
        WRITELN('Angka x dan y: ',x,y);

        READLN();
End.