Задача196.BAS

{* Задача196 *}

REM basic

' Ввести целое число, определить чему равна его последняя цифра
' и прибавить квадрат ее значения к исходному числу.


CLS
INPUT "Введите целое число ", x

        d = x Mod 10
        x = x + d ^ 2
        PRINT x

End