Program pm_1;
var x,y:real;
Begin
readln (x);
if x>0
then y:=x**2
else
if x<0
then y:=x**-2;
writeln (y);
end.
Объяснение:
Program pm_1;
var x,y:real;
Begin
readln (x);
if x>0
then y:=x**2
else
if x<0
then y:=x**-2;
writeln (y);
end.
Объяснение: