Определите, что будет написано в результате исполненья последующей программки: program a7;

Все достаточно просто, мог бы и сам изгнать через ide!) 
1) const a: array [1..6] of integer=(1, 7, 3,6,0,10);  здесь ты инициализируешь массив которые включает 6 частей такие как: (1, 7, 3,6,0,10)
2) после ты по циклу начинаешь складывать все элементы массива, которые описаны выше - for i:=1 to 6 do s:=s+a[i]; т.е. 1+7+3+6+0+10
3) дальше ты разделяешь сумму на 6 и присваиваешь итог переменной sr - sr:=s/6;
4) после этого пытаешься вывести значение переменной sr - writeln(sr=, sr); 

Ответ будет 4.5, но твоя программка не выполниться, т.к. 4.5 это дробное число, а у тебя на переменную sr стоит тип integer, для того, чтоб программка отработала и вывело ответ, сделай тип переменной sr: real и тогда у тебя все получиться =)

Если есть вопросы, то пиши, помогу!