{* Задача 16 *}

Unit ZADACH16;
Interface
Implementation
Begin
 writeln('Составить программу, выводящую на экран список книг домашней библиотеки (автор, название книги, издательство, год издания, стоимость). ');
End.

Program p1;

Uses zadach16.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 10;
Type {* Используемые типы *}
  biblio = Record              avtor, name, izd : String;
  year, summa : integer;
  End;
Var {* Объявление переменных *}
  bib : Array [1..n] Of biblio;
  i   : integer;
  Begin
For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
Begin
  read(bib[i].avtor);
  read(bib[i].name);
  read(bib[i].izd);
  read(bib[i].year);
  read(bib[i].summa);
End;
For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
Begin
  writeln(bib[i].avtor);
  writeln(bib[i].name);
  writeln(bib[i].izd);
  writeln(bib[i].year);
  writeln(bib[i].summa);
End;

End..