MODULE QSequence;
FROM InOut IMPORT WriteString, WriteCard, WriteLn;

VAR n: CARDINAL;
    Q: ARRAY [1..1000] OF CARDINAL;

BEGIN
    Q[1] := 1;
    Q[2] := 1;
    FOR n := 3 TO 1000 DO
        Q[n] := Q[n-Q[n-1]] + Q[n-Q[n-2]];
    END;

    WriteString("The first 10 terms are:");
    FOR n := 1 TO 10 DO
        WriteCard(Q[n],2);
    END;
    WriteLn();

    WriteString("The 1000th term is:");
    WriteCard(Q[1000],4);
    WriteLn();
END QSequence.