Question

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

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');
end.