Помогите тест решить, могут на второй год оставить!!!
1. Даны координаты точки. Выяснить лежит ли точка во второй координатной четверти.
2. Дано двухзначное число n. Определить больше-ли числа 9 сумма его цифр.


Заранее спасибо за правильные ответы!

Первая программа:program p;varx, y: integer;begin  writeln('Введите x >> ');  read(x);  writeln('Введите y >> ');  read(y);  if (x<0) and (y>0) then    begin      writeln('Точка принадлежит второй координатной четверти');    end   else    begin      writeln('Точка не принадлежит второй координатной четверти');    endend.Вторая:program p2;varn, i, sum, j: integer;arr: array[1..10] of integer;begin  writeln('Введите число n');  read(n);  while n>0 do    begin      inc(i);      arr[i]:=n mod 10;      n:=n div 10;    end;  for j:=1 to i do    begin      sum+=arr[j];      //write(arr[j]);    end;  if sum>9 then3    begin      writeln('Сумма больше 9');    end  else    begin      writeln('Сумма меньше 9');    endend.