//PascalABC.NET версия 3.2, сборка 1389
begin
var a := SeqRandom(Random(20), 0,100);
Println(a);
Println(a.Max);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.