Paskal массив

[Fromki]

Помогите решить плиз

В массиве H(18) для каждого второго элемента получить квадрат числа, а из каждого третьего вычесть значения первого элемента.

[newStudent]

program name;
uses crt;
const n = 18;
var H : array [1..n] of integer; i : integer;
begin
clrscr;

randomize;
for i := 1 to n do
  begin
    H[i] := random(10);
    write(H[i],' ');
  end;
writeln;

i:=1;
while (i<=n) do
  begin
    H[i+1] := sqr(H[i+1]);
    H[i+2] := H[i+2] - H[1];
    i:=i+3;
  end;

for i := 1 to n do
  begin
    write(H[i],' ');
  end;
readln;
end.

[Ghost of Night]

А в чем проблема???
1)Запускаешь цикл, перебираешь по 2 числа, и находишь их квадрат.
2)Аналогично, только вместо квадрата отнимаешь первый элемент

[Stilet]

for i:=1 to 18 do begin
 if (i mod 2)=0 then write(sqr(h[i]):10);
 if (i mod 3)=0 then write((h[i]-h[1]):10);
end;

Уловил месседж?

[Fromki]

Спасибо за решение.

Stilet, уловил-то уловил, только не знаю куда вставлять. Код newStudent работает на отлично.