СРОЧНО!!!!!!!!!!!!ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!ПОМОГИТЕ!!!!!!! правильно ли написана...

Question

СРОЧНО!!!!!!!!!!!!ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!ПОМОГИТЕ!!!!!!!
правильно ли написана программа для графика?

var x,y:real;beginwriteln ('введите координаты');readln (x,y);if (x*x+y*y<=1) then beginif (x>=0) then beginif (y>=-x) thenwriteln ('т попала в обл')elsebeginif (y<=-x) then writeln ('т попала в обл')elsewriteln ('ошибка');end;end;end;end.<hr>

Answer 1

Var x,y:real;
begin
writeln ('введите координаты');
readln (x,y);
if x*x+y*y<=1 then<br>if x>=0 then writeln ('т попала') else
if y>=-x then writeln ('т попала')
else writeln ('т не попала')
end.

Comments

мне надо без сложного условия

---

изменила