Сказка про детей в стране информатика составить сказку про детей в стране информатика. Плз.

Однажды один Информатик сидел перед компьютером. А надо сказать, что Информатик – это человек будущего, т. е. ребенок. И этому человеку необходимо было сделать слишком много уроков. Он долго печатал, устал и захотел отдохнуть.  Воспользовавшись отсутствием родителей (что бывает достаточно редко) , пронырливый Информатик решил запустить самую убойную игру. Самую – самую, которую родители обещали «удалить». Информатик так увлекся, что сам оказался в компьютере, в той самой игре. Но что-то ему эта игра быстро разонравилась, когда он оказался внутри ее. Здесь грохотали пушки, летали самолеты, ездили танки и надо было быстро реагировать, если ты хочешь остаться в живых. Информатику страшно захотелось выйти из игры, для этого ему надо было найти дверь с надписью «Выход» .   О счастье, что он знал, все короткие пути и лазейки в этой игре. Из игры он выбрался, но куда же он попал? Он увидел большую улицу и много человечков, которые возили тележки с информацией. Эти человечки беспрестанно толкали его. Они были похожи друг на друга, но один привлек его внимание, т. к. явно был главным. Он был самым высоким и имел отличающую его от всех надпись: «проводник» .   Информатик обратился к нему и объяснить, где он находится. На что Проводник ответил, что это главная улица WORDa. Человечки продолжали суетиться, а Информатик разглядывал с любопытством город. Неожиданно он заметил, что в тени ползет какое –то существо, похожее на огромную гусеницу. Она проползла и легла посередине тротуара. Один из работников с тележкой споткнулся об нее, тележка перевернулась, а информация высыпалась. Гусеница шустро поползла к рассыпавшимся буквам и начала их надкусывать (ибо! Что не съем, то надкушу). Увидев это, Проводник достал мобильный телефон, набрал SOS!!! И вызвал скорую Не и несколько секунд как на реактивном моторе примчалась машина с надписью Антивирус. Из машины вылезли человечки в белых халатах, сделали ей успокоительный укол. Затем посадили в машину и отправили в Корзину.   ВОТ И СКАЗКЕ КОНЕЦ, А КТО СЛУШАЛ – МОЛОДЕЦ!!!

ну вот так это будет выглядеть с ветвлением и возможностью повторять вычисления без повторного запуска программы.

var a,b,c,d,z: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); while (z = 1) dobeginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); writeln ('хотите ли вы решить еще один пример? 1-да, 0-нет'); read (z); end; end. 

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.