! 宣告區域（declaration section）
    program disxy
 
    ! 這個程式在求座落在XY平面上 P, Q 兩點距離
      implicit none
 
    ! Variables- 宣告 執行區域內所有用到（出現）的變數/陣列的 資料型態
      real :: x1, y1    ! P點座標
      real :: x2, y2    ! Q點座標
      real :: temp      ! 暫存計算過程中之資料
      real :: distance  ! P, Q 兩點距離
 
    ! 執行區域（execution section） 
 
    ! 讀入 P, Q 兩點座標 
      print *, '輸入P點 x, y 座標'
      read(*,*) x1, y1
      print *, '輸入Q點 x, y 座標'
      read(*,*) x2, y2
 
    ! 計算 P, Q 兩點距離
      temp = (x1 - x2)**2 + (y1 - y2)**2
      distance = sqrt(temp)
 
    ! 輸出(列印出) P, Q 兩點座標 和 距離
      write(*,*)'P點 x, y 座標 :', x1, y1
      write(*,*)'Q點 x, y 座標 :', x2, y2
      write(*,*)'P, Q 兩點距離 :', distance
 
    ! 結束區域（termination section） 
    end program disxy

ISDlrqPlkYrljYDln5/vvIhkZWNsYXJhdGlvbiBzZWN0aW9u77yJCiAgICBwcm9ncmFtIGRpc3h5CgogICAgISDpgJnlgIvnqIvlvI/lnKjmsYLluqfokL3lnKhYWeW5s+mdouS4iiBQLCBRIOWFqem7nui3nembogogICAgICBpbXBsaWNpdCBub25lCiAgICAKICAgICEgVmFyaWFibGVzLSDlrqPlkYog5Z+36KGM5Y2A5Z+f5YWn5omA5pyJ55So5Yiw77yI5Ye654++77yJ55qE6K6K5pW4L+mZo+WIl+eahCDos4fmlpnlnovmhYsKICAgICAgcmVhbCA6OiB4MSwgeTEgICAgISBQ6bue5bqn5qiZCiAgICAgIHJlYWwgOjogeDIsIHkyICAgICEgUem7nuW6p+aomQogICAgICByZWFsIDo6IHRlbXAgICAgICAhIOaaq+WtmOioiOeul+mBjueoi+S4reS5i+izh+aWmQogICAgICByZWFsIDo6IGRpc3RhbmNlICAhIFAsIFEg5YWp6bue6Led6ZuiCgogICAgISDln7fooYzljYDln5/vvIhleGVjdXRpb24gc2VjdGlvbu+8iSAKICAgIAogICAgISDoroDlhaUgUCwgUSDlhanpu57luqfmqJkgCiAgICAgIHByaW50ICosICfovLjlhaVQ6bueIHgsIHkg5bqn5qiZJwogICAgICByZWFkKCosKikgeDEsIHkxCiAgICAgIHByaW50ICosICfovLjlhaVR6bueIHgsIHkg5bqn5qiZJwogICAgICByZWFkKCosKikgeDIsIHkyCiAgICAKICAgICEg6KiI566XIFAsIFEg5YWp6bue6Led6ZuiCiAgICAgIHRlbXAgPSAoeDEgLSB4MikqKjIgKyAoeTEgLSB5MikqKjIKICAgICAgZGlzdGFuY2UgPSBzcXJ0KHRlbXApCiAgICAKICAgICEg6Ly45Ye6KOWIl+WNsOWHuikgUCwgUSDlhanpu57luqfmqJkg5ZKMIOi3nembogogICAgICB3cml0ZSgqLCopJ1Dpu54geCwgeSDluqfmqJkgOicsIHgxLCB5MQogICAgICB3cml0ZSgqLCopJ1Hpu54geCwgeSDluqfmqJkgOicsIHgyLCB5MgogICAgICB3cml0ZSgqLCopJ1AsIFEg5YWp6bue6Led6ZuiIDonLCBkaXN0YW5jZQogICAgCiAgICAhIOe1kOadn+WNgOWfn++8iHRlcm1pbmF0aW9uIHNlY3Rpb27vvIkgCiAgICBlbmQgcHJvZ3JhbSBkaXN4eQ==