X3×x×323d×32d = x3×x×323x×32x
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.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.