Объявление NOD не верно. если это функция, то надо писать:
function NOD(n: integer; m: integer) : integer;
С помощью газет, интернета, различных соц. сетей, телевизора, радио,во время разговора с кем-либо
2 в степени i = N ( N - мощность алфавита, i - вес одного символа)
2 в степени i = 16
i = 4
2 Кб = 2048 Байт = 16 384 бит
16384 / 4 = 4 096 (символов)