用Fortran语言求Sn=a+aa+aaa+...+aaa...a的值。a值由键盘输入，a的值为1~9之间的一个数。

可以使用如下的Fortran代码来求解Sn的值：

program main
    implicit none
    integer :: a, n, i
    real :: Sn, temp

    write(*,*) '请输入a的值（1~9之间的整数）：'
    read(*,*) a

    Sn = 0
    temp = a

    write(*,*) '请输入n的值：'
    read(*,*) n

    do i = 1, n
        Sn = Sn + temp
        temp = temp * 10 + a
    end do

    write(*,*) 'Sn的值为：', Sn

end program main

这段代码中，首先从键盘读入a的值，然后定义Sn和temp两个变量，其中temp用来计算每一项的值。接着从键盘读入n的值，然后通过一个循环来累加Sn的值。最后输出Sn的值。