Sayfa 26

ayadilsublis'Subat , ayadilmarli-'Mart * ayadilnisl1li-'Nisan ayadilmayli-'Mayis t ayadiltemli-'Temmuz * ayadilagulis'Agustos' ayasdileyllis'Eylul , ayadilekilis'Ekim bi aytamami erd;

Procedure type of real; yildizisarraylsureal of real; aydizisarraylayl of reai;

var satisisatisdizisi; yiltoplamiyildizi; ilkyil secimisayi;

procedure secimokuluar var

procedure menuyaz; begin SATIS ANALIZ-menu')? ş 1.Satis verilerini wWreitelmi' Z.Satis tablosunu göster.');

end. 3.Ylıa göre tabio 4.Aya göre tablo 5.Yila göre grafik.'); Writelnl' göre grafik.'); Writelnl' 7.Programdan cikis')? end; begin mMmenuyaz; vepeaeat

arasi seciminizi rveadlInigecici); until gecici in | end;

procedure satisgirlvuar ayadi!dizi/var var ilkyil,sonyilisurea);