Решение задачи Proc 23

#include <stdio.h>

int quarter(float x, float y){
    if ((x>0)&&(y>0)){return 1;}
    if ((x<0)&&(y>0)){return 2;}
    if ((x<0)&&(y<0)){return 3;}     if ((x>0)&&(y<0)){return 4;}
}
 
int main(void)
{
    int i;
    for (i=1; i<=3; ++i){
        float x,y;
        printf("X:");
        scanf("%f", &x);
        printf("Y:");
        scanf("%f", &y);
        printf("Quarter:%i\n",quarter(x,y));
     }
    return 0;
}

import random

lst = [i for i in list(range(-10,11)) if i != 0]


def Quarter(x,y):
    if x > 0 and y > 0:
        return "I"
    elif x < 0 and y > 0:
        return "II"
    elif x < 0 and y < 0:
        return "III"
    else:
        return "IV"

for i in range(0,5):
    x = random.choice(lst)
    y = random.choice(lst)
    print("\nТочка (x, y): ({0},{1})".format(x, y))
    print("Координатная четверть: ", end="")
    print(Quarter(x,y))
									

program Proc23;
 
Function Quarter(X,Y:Real):Integer;
begin
  if (X>0) and (Y>0) then Quarter:=1;
  if (X<0) and (Y>0) then Quarter:=2;
  if (X<0) and (Y<0) then Quarter:=3;   if (X>0) and (Y<0) then Quarter:=4;
end;
 
 
var
  X,Y:Real;
  i:Integer;
 
begin
 for i:=1 to 3 do
  begin
   Write('X :');
   Readln(X);
   Write('Y :');
   Readln(Y);
 
   Writeln(Quarter(X,Y));
  end;
end.