var x,y: real;
begin
readln(x,y);
if (y>=2)and(x*x+y*y>=4*4)and(x*x+y*y<=6*6)
then writeln('Попадает')
else writeln('Не попадает');
end.
Пример:
2 5
Попадает
5 Кбайт = 5 * 1024 байт = 5120 байт (ответ А)