C     Sastaviti program koji nalazi i stampa prvu vrednost
C     sume S=1**2+3**2+5**2+7**2+...
C     koja je veca od unetog broja a.

C     DONJA _IF_ NAREDBA POTICE IZ FORTRANA IV, KASNIJE VERZIJE
C     PODRZAVAJU I ELEGANTNIJA RJESENJA TIPA "DO WHILE" I SL.

      ISUMA=0
      I=0
      WRITE(*,*) 'A=?'
      READ(*,*) A

  10  I= I+1
      ISUMA=ISUMA+I**2
      IF(ISUMA-A) 10,10,20
  20  WRITE(*,90) A, ISUMA
      STOP
  90  FORMAT(1X,'PRVA VRIJEDNOST SUME VECE OD ',F8.2,' JE ',I6)
      END