Помогите составить программу на pascal!

[Aleksander Goose]

a1=1 an=an-1+3 Найти сколько элементов последовательности пренадлежить промежутку [m,n] найти их сумму.

[Аватар]

Арифметическая прогрессия, по-моему 6-ой класс или 7-ой. На бумаге то можешь формулу вывести? Решается без всяких циклов

[Aleksander Goose]

Я так и думал, но нужна программа.

[Аватар]

Так не интересно. Покажи формулу. Она и будет почти готовой прогой на паскале. Так и быть, нарисую если формула будет

[Dvoishnik]

писал на коленке бухгалтерши Светы, не уверен что даже с компилируется.

 Var i,m,n,posl:Integer;
   sum:integer;
begin
 writeln('Введите прмежуток') ;
 Write('m=':4);ReadLn(m);
 Write('n=':4);ReadLn(n);
 posl:=1;
 for i:=m div 3  to n div 3 do
  begin
   inc(sum);
   Writeln('Элемент последовательности',sum);
   Writeln('равен', posl) ;
   posl:=posl+3;
  end;
 ReadLn;
end

[Iron Monk]

Сообщение от Dvoishnik

писал на коленке бухгалтерши Светы, не уверен что даже с компилируется.

 
 for i:=m div 3  to n div 3 do

оксигенно...)))