Определите, что будет напечатано в результате выполнения следующего алгоритма var m,k,i: integer; mas:array[1..7] of integer; beginmas[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 =mas[i+1] then k:=k+1 else begin if k > m then m:=k; k:=1 end; write(m); end.
