двузначное число.записанное в системе счисления с основанием 5 при перестановке цифр становится числом

var x: integer; y: real;

begin

readln(x);

If x<=-10 then  

y:=x*x+25-x

else If (-10<x) and (x<=10) then

y:=3+x

else y:=1/x;

writeln(y);

end.