zadach296.BAS

{* Задача296 *}

REM basic

' Дано натуральное число. найти первую цифру числа.


INPUT a
While a > 0
    q = a Mod 10
    a = a  10
Wend
PRINT q
End