Var x,y:Real; Begin Write('x= '); Readln(x); If x>1 then y:=Ln(x) else y:=1-x; Writeln('y= ',y:0:3); Readln End.
Яндекс