ЗАДАЧА НА ПОСЛЕДОВАТЕЛЬНОСТЬ ЧИСЕЛ. ПОМОГИТЕ ПОЖАЛУЙСТF НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

[владимир/к.]

дана последовательность вещественных чисел X1,X2....X30. Вычислить Y по формулам:
Y1=X1+X2+X3+X4+X5;
Y2=X6+X7+X8+X9+X10;
:
:
Y6=X26+X27+X28+X29+X30.
ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ К ЭТОЙ ЗАДАЧЕ НА ЯЗЫКЕ "ПАСКАЛЬ".

[Sazary]

Массив x забивается случайными числами, если нужен ручной ввод - там кусок закомменчен.

uses crt;
const n = 30; m = 6;
var
x : array[1..n] of real;
y : array[1..m] of real;
i,j,k : integer;
begin
clrscr;
{---- generator --}
randomize;
for i:=1 to n do
 begin
 x[i] := random(20);
 write(x[i]:7:2);
 if i mod 10 = 0 then writeln;
 end;
writeln;
{------------}
{ -- ruchnoj vvod
 for i:=1 to n do
   begin
   write('Vvedite x[',i,']: ');
   readln(x[i]);
   end;
  writeln;
  ---  }
for i:=1 to m do
  y[i] := 0;
j:=1;
for i:=1 to n do
  begin
  y[j] := y[j] + x[i];
  if i mod 5 = 0 then inc(j);
  end;
for i:=1 to m do
  writeln('y[',i,']= ',y[i]:7:3);
readln;
end.

[владимир/к.]

огромнейшее спасибо!!!!))))))))))))))))) завтра допуск получать, а у меня еще 4е задачи не сделано... спасибо выручил!))))