Предложение в исходном виде было таким:
"Любая инфор может быть представлена с помощью чисел"
В строчке read('a'); апострофов быть не должно. Замени на read(a);
Найдем количество бит на 1 пиксель:
8 = 2^i,
i = 3 (бита).
Найдем общее количество пикселей:
64 × 3584 = 229376 (пикс.).
Найдем объем рисунка в физической памяти:
229376 × 3 = 688128 (бит).
Переведем в КБайт'ы:
688128/8/1024 = 84 (КБайт).
Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:
var
A: array[1..10] of integer;
k, i: integer;
begin
for i := 1 to 10 do
begin
writeln('Введите числа массива:');
readln(A[i]);
if A[i] > 10
then k := k + 1;
end;
writeln('Количество элементов, больших 10 - ', k);
end.