Вписати фрагмент програми, який відповідає описy одновимірний масив n із 10 дійсних чисел одновимірний масив date із 20 цілих чисел сума всіх елементів масиву, який складається з 30 елементів елементи довільного масиву дорівнюють квадратам своїх індексів ввести з клавіатури в масив 20 цілих чисел

Одновимірний масив N із 10 дійсних чисел
Var
  N: array[1..10] of real;

Одновимірний масив Date із 20 цілих чисел
Var
  Date: array [1..20] of integer;

Сума всіх елементів масиву,
який складається з 30 елементів
For i := 1 to 30 do
  S := S + A[i]

Елементи довільного масиву дорівнюють квадратам своїх індексів
For i := 1 to 10 do
  A[i] := i*i; // или A[i] := Sqr(i);

Ввести з клавіатури в масив 20 цілих чисел
For i := 1 to 20 do
  Read(A[i])