Заполнить массив D из 53 элементов следующим образом:
а) первые 8 ввести с клавиатуры
б) следующие 27 случайные числа от [0, 41]
в) остальные по формуле i^3/-4 (в числителе), в знаменателе i+2

В части б) получается не 27 элементов, а 28.

спасибо

var    ar: array[1..53] of real;    i: integer;begin    randomize;        for i := 1 to 8 do        readln(ar[i]);    for i := 8 + 1 to 8 + 1 + 26 do        ar[i] := random(41);    for i := 8 + 1 + 26 + 1 to 53 do        ar[i] := (i * i * i / -4) / (i + 2);        writeln('Array:');    for i := 1 to 53 do        write(ar[i]:4:2, ' ');end.