Определите находится ли точка с координатами x y во 2 четверти координатной плоскости составить алгоритм и программу

Код программы

program raf105;

var x,y: real;

begin

write('введите x и y: ');

readln(x,y);

if (x< 0) and (y> 0)

  then writeln('точка находится во 2 четверти координатной плоскости')

  else writeln('точка не находится во 2 четверти координатной плоскости');

end.

алгоритм

ввести x,y

если x меньше нуля и y больше нуля

  то точка находится во второй четверти

  иначе точка не находится во второй четверти

var x,y: float;

begin

read(x,y);

if(x< 0)and(y> 0) then write(‘находится’) else (‘не находится’);

end.

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   var l: =readinteger('количество элементов в каждом массиве =');   var m: =arrrandom(l,-30,48); m.println;   var n: =arrrandom(l,-60,35); n.println;   var k: =m.zip(n,(p,q)-> p*p+q*q).toarray; k.println end. пример количество элементов в каждом массиве = 13 6 21 1 -5 40 42 14 21 15 4 -27 -26 -22 2 -59 15 -11 2 -2 -6 -41 -30 3 23 -38 6 40 3922 226 146 1604 1768 232 2122 1125 25 1258 2120 520

Const n=3; var  i, j, s, k: integer;   sa: real;   a: array [1..n, 1..n] of integer; begin  writeln('ввод элементов матрицы');   for i : = 1 to n do    for j : = 1 to n do    begin      write('a[', i, ',', j, ']=');       readln(a[i, j]);     end;   s : = 0; k : = 0;   for i : = 1 to n do    for j : = 1 to 1 do    begin      s : = s + a[i, j];       k : = k + 1;     end;   sa : = s / k;   writeln('среднее арифметическое элементов матрицы = ', sa: 2: 2); end.