Написать сказку про телефон. 10-20 предложений

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

Жили были дед да бабка. однажды бабка говорит деду: иди старый смастери чего нибудь нового, чего на свете еще нету. долго думал дед, что смастерить да придумал. день работал, ночь работал и так две недели. потом приносит бабушке iphone 7, вот бабка гляди, телефон который еду готовит. положи они его на стол, нажали на кнопочки и выбрали еду, только они сказали, как на столе появились пироги да мясо. наелись до сыта они и легли спать. тут приходит кузьмич, он тоже своего дело мастер, мастерит ведра под названием android, увидел он чудо техники и решил избавиться от него. залез тихонько через окно и только дотянулся до телефона, как тот зазвенел, да так громка что вся деревня услышала, тут подбегает дед с ружьем и бабка со скалкой. наругали они кузьмича, да выгнали с деревни. больше никто его никогда не видел.

Program pr; uses crt;   var  a,b,c: integer;   begin    write('введите 1-ю сторону: '); readln(a);     write('введите 2-ю сторону: '); readln(b);     write('введите 3-ю сторону: '); readln(c);       {проверка на существование треугольника}  if ((a+b)> c) and ((a+c)> b) and ((b+c)> a)     then               begin                                    if ((a=b)or (b=c) or (a=c)) then                                  writeln('треугольник равнобедренный');                                       if ((a=b) and (b=c)) then                              writeln('треугольник равносторонний')                            else writeln('треугольник разносторонний');                         if ((a*a+b*b = c*c) or (a*a+c*c = b*b) or (b*b+c*c = a*a))    then               writeln('треугольник прямоугольный');                               end        else        writeln('треугольник нельзя построить');       readln();   end.