Azad İsa oğlu Qurbanov, Elçin Musa oğlu Məmmədov, Aygün Seyfəddin qızı Hüseynova

Program Biblioqrafik_kataloq; 
type 
     Biblio=record 
     Avtor:string[50]; 
     Serlohve:string[100]; 
     Nesr_ili:integer; 
     Nesr_yeri:string[20]; 
     Nesriyyat:string[30]; 
     Cild:byte; 
     Sehife:byte; 
end; 
Var 
   i:byte; 
   Kitab:Biblio; 
   Biblio_yazi:string[200]; 
Begin 
      Readln(Kitab.avtor); 
                                                 
1
 Başqa sözlə yazının və sahə identifikatorları bir-birindən nöqtə ilə ayrılmış şəkildə yazılmalıdır. 

---

 
372
      Readln(Kitab.Serlohve); 
      Readln(Kitab.Nesr_ili); 
Biblio_yazi:= Kitab.avtor+' '+Kitab.Serlohve; 
      Writeln (Biblio_yazi); 
 
End. 
Praktikada eyni tipli yazılardan istifadə etdikdə elementləri yazılar olan 
massivlərdən istifadə etmək  əlverişli olur. Məsələn, 10 ədəd kitabın biblioqrafik 
təsvirini daxil etmək və çap etmək tələb olunarsa elementləri 
Biblio
 yazı tipi olan 
massivdən istifadə etmək olar.  
Program Biblioqrafik_kataloq; 
type 
Biblio=record 
Avtor:string[50]; 
Serlohve:string[100];