Task
a(1) = 1; for n > 1, a(n) = largest proper divisor of n, where n < 101 .


Func Lpd(n) =
    if n = 1 then Return(1) fi;
    for i = n\2 to 1 by -1 do
        if n|i = 0 then Return(i) fi;
    od.;
 
for m = 1 to 100 do
    !(Lpd(m):4);
    if m|10=0 then ! fi;
od;