Free Pascal programı ile algoritma dilinde yılın 12 ayı nasıl yazılır?

Programlama dili Pascal, Free Pascal programı ile yılın 12 ayı nasıl ifade edilir?

Free Pascalda Yılın 12 ayı yazılacak ve bu ayların kaçar gün sürdüğü çıkacak şekilde bir ödevim var.Uygun bir dille yazıp yardımcı olursanız sevinirim. Bu konuyu hocaya anlatmam lazım..Yalnız algoritma dilinde yazılacak.

Fikir vermesi açısından basitçe şöyle bir algoritma yazılabilir;

Girdi : 12 Ay
Çıktı : Bir aydaki ortalama gün sayısı


Değişkenler :

Sayaç=>x
Gün sayısı=>G
Toplam gün sayısı =>T
Ortalama => Toplam gün sayısı/12=T/12

Algoritma :

1)Başlama komutu
2)Döngüyü başlat (x=1'den 12'ye kadar)
3)Gün değerini gir ( G )
4)T=T+G
5)Döngüyü sonlandır(x değeri 12 olduğunda)
6)Ortalama=T/12
7)Ortalama değerini ekrana yaz
8)Bitir.