// Первые 3 минимума
begin
  SeqRandom(20).Println.Sorted.Distinct.Take(3).Println;
end.