<span>"Я к вам пишу - чего же боле? что я могу еще сказать?" - 52 символа
52 * 16 = 832 бита = 104 байта :)</span>
Для первого примера я привел пример перевода из двоичной системы в десятичную. Второй пример можете сделать так же. Я не стал этого делать, ибо долго.
Var
A : array of real;
i, N, num : integer;
begin
write('Количество чисел: ');
readln(N);
SetLength(A, N);
for i := 0 to N - 1 do
begin
write('A[', i + 1, '] = ');
readln(A[i]);
end;
num := 0;
for i := 0 to N - 1 do
if Sqr(A[i]) < 10 then
Inc(num);
writeln('Таких чисел: ', num);
end.