Составить программу. паскаль вывести на экран номер четверти, которой принадлежит точка с координатами (х; у) . напишите

Var
x,y:real;
begin
writeln('Введите x и y: ');
readln(x);
readln(y);
if (x>0) and (y>0) then
  begin
    writeln('Первая четверть');
  end;
if (x<0) and (y>0) then
  begin
    writeln('Вторая четверть');
  end;
if (x<0) and (y<0) then
  begin
    writeln('Третья четверть');
  end;
if (x>0) and (y<0) then
  begin
    writeln('Четвертая четверть');
  end;
End.