Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс. Найти сумму квадратов элементов нового массива.

var     mas, c: array[1..20]of real;     i, c_n: integer;     s: real; begin     randomize;     for i := 1 to 20 do     begin         mas[i] := random(100) - 50;         if (mas[i] > 0) and (i mod 2 = 0) then begin             c_n := c_n + 1;             c[c_n] := mas[i];             write(c[c_n], ' ');             s := s + c[c_n] * c[c_n];         end;     end;     writeln();     writeln('S = ', s); end.