PROGRAM For1;

VAR
    I : Integer;

BEGIN
    FOR I := 1 TO 10 DO
        WriteLn(I);

    FOR I := 10 DOWNTO 1 DO
        WriteLn('=>', I);
END.