Придумать рассказ про ослика, книгу и ноутбук

Жила была девочка. Она любила играть в игрушечного ослика. Но в ее день рождение ей подарили книгу, она была интересно .И когда девочка читала книгу, она часто забывала про своего друга детства. Ну вот девочке уже 13 лет. И родители решили подарить ей ноутбук, но когда девочка в него играла, она забывала обо всем на свете.
Вот пришло время генеральной уборки, мама девочки выставляет не нужные вещи на продажу. В свою очередь девочка уберает, чистит, моет свою комнату. Вот она все сделала и ей осталось собрать не нужные вещи. Она протянула руку на книжную полку и нашла свою самую первую книгу. Она улыбнулась и пустила слезу, при этом говоря :,, Все меняется''. Положив книгу в коробку, она заглянула в свой сундук с игрушками и увидела всего лишь одну игрушку. Да, это был тот самый ослик. Она обняла его, при этом сказав:,, все в жизни меняется, так же как и возвраст''. Девочка положила ослика в коробку и отнесла ее маме.Эту коробку купила одна девочка. Она была счастлива смотря на чудесные вещи.

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.