{
    Write 1 to 9.
}

PROGRAM While1;

VAR
    I : Integer;

BEGIN
    I := 1;
    WHILE I < 10 DO
    BEGIN
        WriteLn(I);
        I := I + 1;
    END;
END.