fork download
  1. program calc
  2. integer ::x
  3.  
  4. write (*,*) "好きな整数を入力してください"
  5. read (*,*) x
  6. write (*,*) "その10倍は", x * 10, "です"
  7.  
  8. end program calc
  9.  
Success #stdin #stdout 0s 5284KB
stdin
123
stdout
 好きな整数を入力してください
 その10倍は        1230 です