Program zap_8;
Uses Crt;
Const n=10;
Type kniga = record
Avt, name,izd:string[20];
God:integer;
Stoim:real;
end;
Var a : array[1..n] of kniga;
i :byte;
avtor:string;
BEGIN
ClrScr;
for i:=1 to n do
with a[I] do
begin
Writeln('Введите автора ',I);
Readln(Avt);
Writeln(' Название книги');
Readln(name);
Writeln('Издательство');
Readln(izd);
Writeln('Год издания');
Readln(god);
Writeln('Стоимость');
Readln(stoim);
end;
Writeln('введите автора');
Readln(avtor);
for i:=1 to n do
with a[I] do
if avt=avtor then writeln (avt,’ ‘,name,’ ‘,izd,’ ‘,god, ‘ ‘,stoim:4:2);
Readln;
end.