^:^:^کمک برای یک برنامه بسیار ساده فرترن ^:^:^

[wickietetsu]

سلام دوستان
لطفا کسانی که آشنایی هرچند جزئی با فرترن دارند منو راهنمائی کنن.
یه برنامه می خوام بنویسم که اعداد کوچکتر از 100 رو تقسیم بر 7 بکنه و رایت کنه.
آیا این برنامه ای که نوشتم درسته؟ مخصوصا قسمت اولش رو شک دارم. نمیدونم باید اول تو فرترن متغیرهایی رو که باید در برنامه ازشون استفاده کنم رو بعد از i= مشخص کنم.

i=n,a -----​

n=0-----​

101n=n+1​

if (n.gt.100) stop-----​

a=n/7-----​

write (*,*) a-----​

goto 101-----​

ممنون از شما.

 

[wickietetsu]

آقا لطفا کمک کنین