Вообщем задача про массив, незнаю как записать выполнительную часть программы
Ниже на вставке задача.
Вот как я ее начал:

program massiv3;
type
MyMas=array[1..33] of real;
var
R:MyMas;
x,I:integer;
begin

......

Помогите пожал, кому не трудно

народ, помогите, задача на 2 минуты для знающего, хотябы примерно

x := 0;
i := 3;
while(i<=33) do begin
   x := x + r[i];
   inc(i,3);
end;