Составить приложение на языке Pascal.Определить в какую четверть координатной плоскостипопала точка с координатами (x,y).

program fourth;var N: integer;x, y: real;beginn:= -1;write(\'Введите координаты точки x и y через пробел: \');readln (x, y);if (x = 0) and (y = 0) then N:= 0;if (x > 0) and (y > 0) then N:= 1;if (x < 0) and (y > 0) then N:= 2;if (x < 0) and (y < 0) then N:= 3;if (x > 0) and (y < 0) then N:= 4;case N of 0: writeln(\'Точка находится в начале координат.\'); 1, 2, 3, 4: writeln(\'Четверть № \', N); end;if (x=0)and (y<>0) then writeln(\'Точка находится на оси Y\');if (y=0)and (x<>0) then writeln(\'Точка находится на оси X\');end.