Ответ:
Помещается, если R≤A/2 и не помещается во всех остальных случаях.
Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
int - целое число
float - вещественное число одинарной точности
double - вещественное число двойной точности
char - один символ
bool - логический
woid - тип без значения
555 - int
136.75 - float double
Катя - string (строка символов)
"false" - bool
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>