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

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.

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

изменила

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