Что лишнее: монитор, принтер, наушники, микрофон?

Это микрофон  - устройство ввода информации

Var a, b, c, p1, p2, p3, p4, p5, p6 : longint;     s1, s2, s3, s4, s5, s6, a1, b1, c1 : string; begin     read (a);     read (b);     read (c);     str(a,a1);     str(b,b1);     str(c,c1);     s1: =a1+b1+c1;     s2: =a1+c1+b1;     s3: =b1+a1+c1;     s4: =b1+c1+a1;     s5: =c1+a1+b1;     s6: =c1+b1+a1;     val(s1,p1,a);     val(s2,p2,a);     val(s3,p3,a);     val(s4,p4,a);     val(s5,p5,a);     val(s6,p6,a);     a: =p1;     if p2< a then a: =p2;     if p3< a then a: =p3;     if p4< a then a: =p4;     if p5< a then a: =p5;     if p6< a then a: =p6;     writeln(a); end.p.s. грубо говоря мы собираем все возможные варианты, потом находим  наименьшее и выводим его.p.s.s. val(a,  b,  c) это процедура преобразования строки а в числовое значение b, а c проверка, преобразовалась ли она правильно. и str(a, b) процедура перевода числового значения a, в строку b;

Var   a: array[1..3] of string;   i, j, k, min, x: integer; begin  for i : = 1 to 3 do   begin       write('введите ',i,' число: ');     readln(a[i]);   end; x : = strtoint(a[1] + a[2] + a[3]);   min : = x;   for i : = 1 to 3 do for j : = 1 to 3 do       if j < > i then         for k : = 1 to 3 do           if (j < > k) and (i < > k) then           begin             x : = strtoint(a[i] + a[j] + a[k]);             if x < min then min : = x;           end; writeln('min=', min) end.