Название книги
Фамилия автора
Год издания
Количество страниц
program SJ;
uses crt;
type a=record
f:string;
n:string;
o:1..3000;
c:3..5000;
end;
var b:array[1..100] of a;
i,n: byte;
f1:text;
begin
clrscr;
write('-'); readln(n);
for i:=1 to n do
begin
write('- ',i,'--: ');
readln(b[i].f);
write('-: ');
readln(b[i].n);
write('-: ');
readln(b[i].o);
write('-: ');
readln(b[i].c);
end;
writeln('-');
readkey;
clrscr;
assign(f1,'Books.txt');
rewrite(f1);
for i:=1 to n do
begin
writeln(f1,'-');
writeln;
writeln(f1,i,') -: ',b[i].f,';');
writeln(f1,' -: ',b[i].n,';');
writeln(f1,' -: ',b[i].o,';');
writeln(f1,' -: ',b[i].c,';');
end;
close(f1);
end.