!Print Fibonacci numbers less than 250
!Fortan Programming
READ(*, *)T0,T1 
T0=0  
T1=1 
2 T=T0+T1 
WRITE(*, *)T 
IF(T.LT.250)THEN 
T0=T1 
T1=T 
GOTO 2 
ENDIF 
STOP 
END