Скажите пожалуйста, почему вылетает ошибка "Error 26: Type mismatch" при запуске программы:
Program work2;
Var
mas1 : array [1..10] of integer;
i : integer;
n : integer;
S : integer;
rez : Integer;
Begin
For i:=1 to 10 do Readln (mas1[i]);
For i:=1 to 10 do Begin
if mas1[i] mod 2 = 0 then n:=n+1;
end;
For i:=1 to 10 do Begin
Writeln (mas1[i]);
if mas1[i] mod 2 = 0 then S:=S+mas1[i];
end;
rez:=S/n;
Writeln (rez);
end.
Выделяется ; в строке "rez:=S/n;"