16 бит = 2 байта
8*40*32*2 = 20480 байта занимает текст
16*3200 = 51200 байт
51200 + 20480 = 71680 байт
71680 / 1024 = 70 Кбайт
Ответ: 3
500ман 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000руб
Type
LinMass = array [1..1000] of Integer;
var
A: LinMass;
N, i, j: Integer;
begin
Write('Количество элементов массива: ');
ReadLn(N);
for I := 1 To N Do
begin
Write('Введите A[', I, '] ');ReadLn(A[i]);
end;
i := 1;
while (i <= n) do
if (A[i] >= 100) and (A[i] <= 999) and (A[i] mod 2 = 0) and (A[i] mod i = 0) then begin
for j := i + 1 to n do
A[j - 1] := A[j];
n := n - 1
end
else i := i + 1;
for I := 1 To N Do
write(a[i]:6);
end.