{
    چاپ اعداد ۱ تا ۹.
}

PROGRAM Repeat1;

VAR
    I : Integer;

BEGIN
    I := 1;
    REPEAT
        WriteLn(I);
        I := I + 1;
    UNTIL I >= 10;
END.