В данном тексте встречается не так много различных прописных букв – это все буквы, входящие в заголовок (Ш, А, Л, Т, Й, Б, О) и первые буквы строк (С, В, Н). Какая из них может встречаться один раз. Не трудно заметить, что это не Ш и не Б (они встречаются слишком часто), а также не С, не В и не Н (они встречаются в стихотворении попарно), значит, это какая-то из оставшихся букв заголовка и не трудно догадаться, что О. Три раз встречается строчная буква и. Три раза встречается прописная буква А. Десять раз встречается строчная буква е.
2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016 const nn=100; var i,j,n,t:integer; a:array[1..nn] of integer; begin Write('n='); Read(n); Randomize; for i:=1 to n do begin a[i]:=Random(3); Write(a[i],' ') end; Writeln; for i:=1 to n-1 do for j:=1 to n-1 do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end; for i:=1 to n do Write(a[i],' '); Writeln; end.