Напишите программу ** языке Паскаль

Question

Напишите программу на языке Паскаль

---

Comments

Зачем двадцать раз создавать одинаковые темы?

Answer 1

Var x, y:real;
begin
readln(x);
readln(y);
if (y<=2) and (y>=0) and (x>=-3) and (x<=5) then  writeln ('yes') else writeln ('no');<br>end.