program raf105;
var x,y: real;
begin
write('x = ');
readln(x);
if x >= 1
then y:= power(x,2);
if x < 1
then y:= 1-x;
writeln('y = ',y);
end.
program raf105;
var x,y: real;
begin
write('x = ');
readln(x);
if x >= 1
then y:= power(x,2);
if x < 1
then y:= 1-x;
writeln('y = ',y);
end.
PascalABC 3.4.2