Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить
Var A:array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do begin
A[i]:=(random(101)-50);
writeln (A[i]);
end;
<span>end.
</span>
V=x*y*G
x*y - это размер изображения.
G - глубина изображения.
С - количество цветов изображения.
c=2^g => g=2
V=2^6 * 2^7 *2 = 2^14
Я так подозреваю, что ответ нужно дать в килобайтах - 2^14/2^13=2 килобайта
Ответ: 2^14 бит или 2 килобайта
//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.