Определить количество символов которые можно закадировать имея в распоряжении 12 бит​

Program task1;
var  a, i, kol :integer;
begin
  for i:= 1 to 3 do  begin    readln(a);    if a > 0 then      inc(kol);  end;  writeln(kol);
end.

program task2;
var  n, result :integer;
function summa (x :integer) :integer;  var     i, sum :integer;  begin    for i:= 1 to x do      sum:= sum + i;    summa:= sum;  end;
begin
  readln(n);  result:= summa(n);  writeln(result);
end.

program task3;
var  i, n, growth, sum, kol :integer;  SrGrowth :real;
begin
  readln(n);  sum:= 0; kol:= 0;  for i:= 1 to n do  begin    readln(growth);    sum:= sum + growth;    inc(kol);  end;  SrGrowth:= sum/kol;  writeln(SrGrowth);
end.

program task4;
var  l :integer;
begin
  readln(l);  l:= l div 100;  writeln(l);
end.