Кто шарит за информатику помогите

 Integer:: i, n 
i=1 
Read (*,*) n 
If (n<1) then 
    print *, "Error" 
Else  
    do while (i<=n) 
    If (Mod (i, 2)/=0) print *, i 
    i=i+1 
    Enddo 
Endif 
End