// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество учеников:');
var a:=ArrRandom(n,60,198); a.Println;
a.Transform(t->t<100?t+100:t);<br> a.OrderBy(t->t).Println
end.
Пример
Количество учеников: 15
136 77 124 95 126 155 168 70 189 117 192 112 159 174 60
112 117 124 126 136 155 159 160 168 170 174 177 189 192 195