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


MODULE LargestProperDivisor;
FROM InOut IMPORT WriteCard, WriteLn;
 
VAR i: CARDINAL;
 
PROCEDURE lpd(n: CARDINAL): CARDINAL;
    VAR i: CARDINAL;
BEGIN
    IF n=1 THEN 
        RETURN 1;
    END;
 
    FOR i := n DIV 2 TO 1 BY -1 DO
        IF n MOD i = 0 THEN
            RETURN i;
        END;
    END;
END lpd;
 
BEGIN
    FOR i := 1 TO 100 DO
        WriteCard(lpd(i), 3);
        IF i MOD 10 = 0 THEN
            WriteLn();
        END;
    END;
END LargestProperDivisor.