Сколько килобайтов состоит сообщение из 384 символов 16-ти символьного алфавита?

16= ,т.е. степень 4 это вес одного символа в битах 4*384=1536 бит=192 байт=0,1875

var  a: array [1..100] of integer; i,n,min,max: integer; begin      read(n);       for i : = 1 to n do            read(a[i]);       min: =a[1];       max: =a[1];       for i: = 1 to n do begin            write(a[i],' ');             if max< a[i] then max: =a[i];             if min> a[i] then min: =a[i];       end;       writeln(min,max); end.

Type num=1..999; var x: num; k,y: integer; begin   write('x=');   readln(x);   y: =x;   k: =0;   while y< > 0 do     begin     y: =y div 10;     k: =k+1;     end;   if (x mod 2)=0 then     write('четное ')   else     write('нечетное ');   if k=1 then write('однозначное ')   else     if k=2 then write ('двухзначное ')     else       write('трехзначное ');   writeln('число'); end.