Вписати кусок програми, який вдповда описyОдновимрний масив N з 10 дйсних

Одновимрний масив 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])