Считая что каждый символ кодируется в кодировке unicode, оцените информационный объем следующей фразы: в шести литрах 6000 миллилитров. а)1024 байта б)1024 бита в) 512 байтов г) 512 битов

Программы идут по порядку для каждого номера program _1; var a,b: integer; begin write ('введите количество килограмм ' ); readln (a); b: =a div 100; writeln (b, ' полных центнеров ' ); end. program _2; var a,b: integer; begin write (' введите массу в килограммах '); readln (a); b: = a div 1000; writeln (b, ' полных тонн '); end. program _3; var a,b : integer; begin write (' введите расстояние в метрах '); readln (a); b: a div 1000; writeln (b, ' полных километров: ' ); end.

Program project1; usescrt,math; constn=3; var    s: real;     i,j,f: byte;     a: array [1..n, 1..n] of integer; begin    for i: =1 to n do    begin    for j: =1 to n do  begin    write('vvedite ',i,'.',j,' cifru '); readln(a[i,j]);     end;     end;   for i: =1 to n do    begin    for j: =1 to n do  begin    if (a[i,3]=1) then  inc(f);     end;     end;   writeln('1 vstrechaetsya: ',f: 2,' raz');   readln; end.