Помогите, пожалуйста. срочно

Question

Помогите, пожалуйста. срочно

---

Answer 1

Var
  x, y: integer;

begin
  readln(x, y);
  if ((sqrt(sqr(x) + sqr(y)) <= 1) or ((x in [0..1]) and (y in [0..1]))) then<br>    writeln('yes')
  else
    writeln('no');
end.
--------------------------
var
  x, y: integer;

begin
  readln(x, y);
  if (sqrt(sqr(x) + sqr(y)) <= 1) then<br>    writeln('yes')
  else
    if (x in [0..1]) then
      if (y in [0..1]) then
        writeln('yes')
      else
        writeln('no')
    else
      writeln('no');
end.