Определите, что будет напечатано в результате выполнения следующего алгоритма
var m,k,i: integer; mas:array[1..7] of integer; begin mas[1]:=5;mas[2]:=5; mas[3]:=4;mas[4]:=6; mas[5]:=6;mas[6]:=6; mas[7]:=-8; m:=0; k:=1; for i:=1 to 6 do if mas[i] =mas[i+1] then k:=k+1
else begin
if k > m then m:=k;
k:=1
end;
write(m); end.