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