Sayfa 27

begin yilin satis verilerini girin: *); readinlilkyil); yilin satis verilerini girin: *)? for buyilisilkyil to sonyil do begin yil icin'); Writelnt'her ay icin satislari girin veya O yazin.'); for buayisoca to ara da begin Writelayadilbuayl,' satis TL'); end; end end;

procedure gösterlvar satisisatisdizisi/var

procedure yarigosterl(var satis!satisdizisi/ilkyil ,sonyilisure/ilkay,sonaylay)? yar buaytay; buyilisure;

begin '); for buayi to sonay do Writeln? for buyilisilkyil to sonyil do begin for buayisilkay to sonay do Writeln end end;

begin yarigosterisatis,ilkyil,sonyil,oca,haz); wWriteln?; end;

procedure yeryilluar satisisatisdizisi/ilkyil,sonyilisure; var yiltoplamiyildizi/var yiltamamiboolean);

begin gora toplam satislar'); üritelmi'YIk for buyilisilkyil to sonyil do begin