Составьте алгоритм "бросить пить" по информатике

С использованием оператора if:
#include <iostream>
using namespace std;
int main(){
   int x, y;
   setlocale(LC_ALL, "Russian");
   cout << "Введите координату X: ";
   cin >> x;
   cout << "Введите координату Y: ";
   cin >> y;
   if ((x > 0) && (y > 0)) {
      cout << "Точка находится в I четверти.";
   } else if ((x < 0) && (y > 0)) {
      cout << "Точка находится в II четверти.";
   } else if ((x < 0) && (y < 0)) {
      cout << "Точка находится в III четверти.";
   } if ((x > 0) && (y < 0)) {
      cout << "Точка находится в IV четверти.";
   }
   system("pause");
   return 0;}

С использованием тернарного оператора:
#include <iostream>
using namespace std;
int main(){
   int x, y;
   setlocale(LC_ALL, "Russian");
   cout << "Введите координату X: ";
   cin >> x;
   cout << "Введите координату Y: ";
   cin >> y;
   x > 0 && y > 0 ? cout << "Точка находится в I четверти" << endl : cout;
   x < 0 && y > 0 ? cout << "Точка находится в II четверти" << endl : cout;
   x < 0 && y < 0 ? cout << "Точка находится в III четверти" << endl : cout;
   x > 0 && y < 0 ? cout << "Точка находится в IV четверти" << endl : cout;
   system("pause");
   return 0;
}

Насчет тернарного не полностью уверен, так как вообще им не пользуюсь, хотя ответ выдает верный. Раз вы сказали, что они не могут быть 0, то учитывать, что точки могут лежать на осях или в начале координат не буду.

Program n1;
var a,k,sum,x:integer;

begin
write('Введите число X: ');
readln(x);

sum:=0; k:=0;
writeln('Введите непустую последовательность целых чисел, которая оканчивается нулем:');
read(a);
while a <> 0 do 
begin 
 if a>x then sum:=sum+a; 
 if a mod 2 = 0 then k:=k+1; 
 read(a);
end;

writeln('Сумма всех чисел последовательности, больших числа X: ',sum);
writeln('Количество всех четных чисел последовательности: ',k);
end.

program n2;
var a,b,k:integer;

begin
writeln('Введите последовательность ненулевых целых чисел, которая оканчивается нулем:');
read(a);
while a<>0 do
begin 
 read(b); 
 if a*b<0 then k:=k+1; 
 a:=b;
end;

writeln(k,' раз(а) в введенной последовательности меняется знак');
end.