Составить рассказ , про лошадь с ноутбуком и книгой.

Живёт одна лошадь за  городом.у неё есть   и деньги,и еда,и своё жильё.читала это лошадка книжки и была самой умной лошадью в посёлке "копыто".у   неё была целая библиотека этих книг! но слыхала она что есть такой предмет "ноутбук".всё у лошади было, а ноутбука нет. пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. хорошо лошадь жила с ноутбуком,прекрасно! в онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.услышала она про планшет.пошла по магазину купила самый модный,самый красивый,самый большой планшет.тоже был удобен,но ноутбук был по душе.весь день в покер играла! а с планшетом с папой общалась,фото фотографировала.но от ноутбука не отказалась! продала планшет,ненужная вещь.а за эти деньги присоединила себе интернет! и жила лошадь в обнимку с ноутбуком.

//pascalabc.net //naaman var       x, y : real; begin       write('введите значение х: ');       readln(x);       if (2 * x + 8 = 0) then begin             writeln('для этого значения х решения нет.');             writeln('конец программы');             end       else begin             y : = (5 * x * x - 4) / (2 * x + 8);             writeln('результат вычислений: ',y)             end end.

Var i, c,t: integer; a: array[0..9] of integer; begin a[0]: =6; a[1]: =7; a[2]: =5; a[3]: =8; a[4]: =3; a[5]: =2; a[6]: =0; a[7]: =1; a[8]: =9; a[9]: =4; c: =0; for i: = 0 to 9 do     //ошибка либо в условии либо в коде     if a[i]< a[0]       then           begin                 c: =c + 1;                 t: =a[i];               a[i]: = a[0];               a[0]: = t;           end; writeln('c= ', c); readln; end.ответ:   c=4