задача про массив Опции

[yoon]

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

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

......

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

[klem4]

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