Дан массив 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.