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


proc nonrec lpd(word n) word:
    word d;
    if n=1 then
        1
    else
        d := n-1;
        while n % d /= 0 do d := d-1 od;
        d
    fi
corp
 
proc nonrec main() void:
    word n;
    for n from 1 upto 100 do
        write(lpd(n):3);
        if n%10 = 0 then writeln() fi
    od
corp