5 ON ERROR GOTO 100
10 DEF FN Y(X)=X^3
15 DEF FN Y$(X$)=X$+"(Козьма Прутков)"
18 DEFSTR X
20 LINEINPUT X:PRINT FN Y(X):END
100 IFERR=13 THEN DEFSTR Y:RESUME0'Код 13 имеет ошибка"Type mismatch"!