PROGRAM numerot
  IMPLICIT NONE
  LOGICAL :: nelio1, nelio2
  REAL :: x, y
  WRITE (*,*) 'Anna lukupari x ja y'   
  READ (*,*) x, y
  
  nelio1 = (x >= 0 .AND. x <=2 .AND. y >= 0 .AND. y <= 2)
  nelio2 = (x >= 1 .AND. x <=3 .AND. y >= 1 .AND. y <= 3)

  IF (nelio1 .AND. nelio2) THEN
     WRITE (*,*) 'Piste on kummassakin neliössä'
  ELSE IF (nelio1) THEN
     WRITE (*,*) 'Piste on neliössä 1'
  ELSE IF (nelio2) THEN
     WRITE (*,*) 'Piste on neliössä 2'
  ELSE
     WRITE (*,*) 'Piste on neliöiden ulkopuolella'
  END IF
END PROGRAM numerot