Сказка по информатике про компьютер

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

купили мне компьютер. домой, распаковали все коробки, а как собрать - не знаем. решили вызвать мастера, оставила части компьютера на столе и ушли. тут подобралась мышка к системному блоку, а чуть позже и монитор. и стали они вместе жить и дружить друг с другом. на следующее день пришел мастер собирать компьютер и не поверил в увиденное: компьютер работает. а потом сказал все же чудеса случаются!

//pascalabc.net 3.2 begin var num: array of integer; setlength (num, 21); num[1]: =random (1, 80); for var i: =2 to 20 do repeat num[i]: =random (101); until (num[i]> num[i-1]) and ((100-num[i])> (20-i)); write ('случайные инвентарные номера: '); for var i: =1 to 20 do print (num[i]); writeln; var ind: =random (1, 100); writeln ('случайный инвентарный номер : ', ind); var i: =0; for i: =20 downto 0 do if num[i]=ind then break; if i< > 0 then write ('индекс=', i) else write ('такого номера нет : -('); end.

Pascalabc.net 3.2: 1. begin     write(readstring.indexof(': ')) end. пример ввода: 1234: 56 пример вывода: 4 2. begin     write(readstring.towords.select(x-> x[1]).joinintostring) end. пример ввода: как любила язвить королева, собаки апплодировали пример вывода: клякса 3. begin     write(readstring.towords.select(s-> length() end. пример ввода: не хочу учиться хочу жениться пример вывода: 8 4. если там нет знаков препинания: begin     write(readstring.towords.select(s-> reversestring((' ')) end. если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так:   begin   var str : = readstring + ' ';   var m : = '';   for var i : = 1 to str.length do     if str[i].isletter then       m += str[i]     else     begin       write(reversestring(m), str[i]);       m : = '';     end; end. пример ввода:   амар алым умам пример вывода:   рама мыла маму