matlab yardım lütfen

c... bu program geçen sezon bitme noktasına gelmiş cemaat takımının
c... önce ezeli rakibine büyük zararlar verilerek, sonra da stad, penaltı,
c... transfer şikesi(her maç karşı takımın oyuncusuna "seni sezon sonu alıcaz"
c... gibi yollarla ayağa kaldırılması programıdır
c... programlamanın babası fortrandır ayık olun---

program cemaattakimi

parameter (transfergibesi=32, rakipoyuncusayisi=10)
common /var/ transfergibesi, rakipoyuncusayisi, kazanilanpenaltisayisi, &transfergibesi

real devletestadyaptirmak, transfergibesi, kazanilanpenaltisayisi

write* * 'cemaatin rakipleri kaç maçı 11 kişi tamamlamıştır?'
read* * transfergibesi

transfergibesi=0
oynananmacsayisi=0
maksimummacsayisi=34
if (transfergibesi.ge.maksimummacsayisi) then
cemaattakimi = sampiyon
print* 'cemaattakimi sampiyon (zaten bizim uefa kupamız var oloom ehe ehe ehe'
else
transfergibesi = oynananmacsayisi + 1
oynananmacsayisi = oynananmacsayisi +1
endif
end