Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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
writeln(no)
else writeln(yes);
readkey;
end.