var number: string      %%We use a string so we can minipulate it.

    %%This here makes sure the strink that was entered is pure numbers.
loop
    get number      %%get you string
   
    if strintok (number) then   %%basicly means:  if string can convert to int ok then
        exit        %%we leave the loop
    else    %%otherwise we tell them its wrong
        put "Enter numbers only"    %%message.
    end if
end loop

var numbers: array 1 .. length(number) of int   %%make an array to the length of the string (should use flexy)

for i: 1 .. upper (numbers) %%for loop to the amount to the string
    numbers(i) := ord(number(i))    %%we declare the variables to the place in the string
end for

for i: 1 .. upper (numbers)
    put "Number ", i, " is ", number(i)     %%we show that it really works :)
end for

var number : int := 392175

var digits : array 1 .. ceil (ln (number + 1) / ln (10)) of int

for i : 1 .. upper (digits)
    digits (upper (digits) - i + 1) := (number div (10 ** (i - 1))) mod 10
end for

for i : 1 .. upper (digits)
    put digits (i)..
end for

var number : int
var stringnumber : string

get number

stringnumber := intstr (number)

for x : 1 .. length (stringnumber)
    put stringnumber (x)
end for

fcn LOG_10 (n : int) : real
    result ln (n) / ln (10)
end LOG_10

var digits : array 1 .. floor (LOG_10 (number)) + 1 of int %floor is the opposite of ceil