Составте полное доменное имя. slon. edu. east​

ВХОДЫэлектромагнитные волны (принимаемые радиоволны)
электроэнергия (питание)
мускульная сила человека (включение питания, переключение регуляторов)
пыль (может вывести из строя, снижает яркость изображения)
грязь (может вывести из строя, снижает яркость изображения)
тепло (может вывести из строя)
холод (может вывести из строя)
регулятор громкости (изменяет громкость)
кнопка включения/выключения
стоимость (определяет класс телевизора, его функции и надежность)
ВЫХОД
свет (изображение)
звук
электромагнитные волны (изображение, радиопомехи)
изображение
цвет (цветность изображения)
тепло (выделяемое телевизором тепло может нагревать сам телевизор и окружающие предметы - вплоть до возгорания)
стоимость - зависит от класса телевизора, его функциональности и надежности, и определяет, будут ли его покупать и, соответственно, использовать)

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

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.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2