yılsonu notu hesaplama

[ayaklimetronom]

program yil_sonu_notu_hesaplama

integer::vize,final

real::yil_sonu_notu
sayac=0
20 print*,"lutfen vize ve final notunu giriniz.."
read*,vize,final

yil_sonu_notu=vize*0.4+final*0.6
if ((final>49).and.(yil_sonu_notu>49)) then

print*,"basarili.."
end if
if ((yil_sonu_notu>49).and.(yil_sonu_notu<55)) then
sayac=sayac+1
print*,"notunuz:",yil_sonu_notu," D ile gectiniz basarilarinin
devamini diliyorumm";
else if((yil_sonu_notu>55).and.(yil_sonu_notu<70)) then
sayac=sayac+1
print*,"notunuz:",yil_sonu_notu," C ile gectiniz basarilarinin
devamini diliyorumm";
else if((yil_sonu_notu>70).and.(yil_sonu_notu<85)) then
sayac=sayac+1
print*,"notunuz:",yil_sonu_notu," B ile gectiniz basarilarinin
devamini diliyorumm";
else if((yil_sonu_notu>85).and.(yil_sonu_notu<100)) then
sayac=sayac+1
print*,"notunuz:",yil_sonu_notu," A ile gectiniz basarilarinin
devamini diliyorumm";
else
sayac=sayac+1
print*,"notunuz:",yil_sonu_notu," E basarisiz";

end if
goto 20
end program

[abdullah erdi önüt]

guzel bır program fakat paylasılmıstı sanırım bole
program......................................