Pascal reikia pagalbos Aciu

Reikia rasti masyvo lyginiu skaiciu suma

program Masyvai_k;

var
  M : array[1..6] of real;
  i : integer;
  sum : real;

begin

 writeln('Iveskite masyvo elementus');

 for i := 1 to 6 do

 read(M[i]);

 sum := 0;

 for i := 1 to 6 do

 if i mod 2 = 0

 then sum := sum + M[i];

 writeln('Lyginiu suma = ', sum : 4 : 2);

 Readln;

end.

Gal galetumete paaiskinti kur cia klaida padariau?

Labai dekui

O tai tau reik suma lyginiu reiksmiu esanciu masyve ar suma skaiciu kurie yra masyve su lyginiais indeksais?

Tavo atveju tai tu skaiciuoji M[2] + M[4] + M[6]

Mod dirba su integer tipo skaičiais, o tu bandai naudoti realiuosius.:)

Aciu.