Какое слово зашифровано в виде кода@& *#+ ответы: микрофон, принтер, сканер , планшет, колонки

1)var a: integer; begin writeln('введите число'); readln(a); if (a mod 2=0) then write('чётное ') else write('нечётное '); if (a div 100> =1)then write('трёхзначное число') else if (a div 10> =1)then write('двузначное число') else writeln('однозначное число'); end.2)var a,b,c: real; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if (a< b)and (b< c) then  begin a: =2*a; b: =2*b; c: =2*c; end else  begin a: =(-1)*a; b: =(-1)*b; c: =(-1)*c; end; writeln(a); writeln(b); writeln(c); end. 3)var a,b,c: integer; begin writeln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); writeln('введите 3 число'); readln(c); if a=b then writeln('3') else if b=c then writeln('1') else writeln('2'); end.

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c,d: real;   procedure plo (s: string; x,y,z: real); var sq: real; begin if ((y+z-x)> 0) and ((x+z-y)> 0) and ((x+y-z)> 0) then     begin     sq: =0.25*(sqrt((x+y+z)*(y+z-x)*(x+z-y)*(x+y-;     writeln('площадь треугольника со сторонами ',s,'=',sq: 0: 3);     end else writeln('треугольник со сторонами ',s,' не существует'); end;   begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('d='); readln(d); plo ('a,b,c',a,b,c); plo ('a,b,d',a,b,d); plo ('a,c,d',a,c,d); plo ('b,c,d',b,c,d); end