Помогите пожалуйста. Буду очень благодарен. Заранее спасибо.

спасибо

Держи:var  E: array [1..17] of real;  s: integer;begin    for s := 1 to 17 do  begin    writeln('Введите число');read(E[s]);  end;    for s := 1 to 12 do        writeln(E[s]);    end.