Заполните таблицу моя библиотека включи мне ее не менее 5 книг

Название книги автор жанр дюймовочка андерсен х.к. сказки серебрянное копытце бажов п.п. сказки мишкина каша носов н. рассказы сказка о потеренном времени шварц е. сказка ну, погоди камов ф. курляндский а. хайт а. сказка по мультфильму

Var m: array[1..15] of real;   i: integer;   n: real;   begin  randomize;   for i: =1 to 15 do  begin  m : =random(20)-20;   if( m< 0) then  begin  m: =sqr(m);   end;

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.