PROGRAM kulmikas
  IMPLICIT NONE
  REAL :: alpha
  WRITE (*,*) 'Anna kulma alpha'
  READ (*,*) alpha
  WRITE (*,*) 'Kulman sini ja kosini ovat ', &
      SIN(alpha), COS(alpha)
END PROGRAM kulmikas