Вкус хлеба лишнее, так как всё остальное - это звуки.
Б..........................................
Кодировка 8ми битная => по байту на символ.
32 * 32 * 10 = 10240 байт.
10240 / 1024 = 10 Кб
10 / 2 = 5 с
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.