Files
code_olymp/Pascal/10.10.16/Program4.pas

9 lines
145 B
ObjectPascal

var
x,y:real;
begin
Read(x,y);
if (y<=x+2) and (y<=x-2) and (y<=2) and (y>=0) and (y<=sqr(x)) then
print('ïðèíàäëåæèò')
else
Print('íåò')
end.