Решите задачу по Паскалю пожалуйста!

Question

Решите задачу по Паскалю пожалуйста!

---

Answer 1

program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then<br>writeln('no')
else writeln('yes');
readkey;
end.