Дана последовательность a1,a2,...,a9. Отобрать из неё элементы, которые расположены между первым и последним элементами. Вывести эти элементы и их индексы в последовательности и их сумму. Вывести их количество, и сообщение, если таких чисел нет

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program primitive;

var a,b: integer;

begin 

read(a,b);

writeln(a mod b);

end.чему в школе то  

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

program qwe;

uses crt;

var  c, s, i: integer; y: real;

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)