Pascal даны целочисленные координаты точки на плоскости. если точка совпадает с началом координат, то вывести 0. если точка не совпадает с началом координат, но лежит на оси ох или oy, то вывести соответственно 1 или 2. если точка не лежит на координатных осях, вывести 3. (нужно чтобы прошла тест на taskbook)

Var x, y: integer; begin       readln(x , y);       write('> ');       if ((x = 0) and (y = 0)) then writeln(0);       if ((x < > 0) and (y = 0)) then writeln(1);       if ((x = 0) and (y < > 0)) then writeln(2);       if ((x < > 0) and (y < > 0)) then writeln(3); end.проверку на pascal  abc  проходит, а тот сайт не грузится у меня, инет

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

аx2+c=0

аx2=-с

х=-с/а

если -с/а меньше 0, корней нет

есла -с/а равно 0, то х=0

если -с/а больше 0,х=+-корень из -с/а