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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.