В таблице хранятся данные о количестве проданных единиц товаров (Dat[1] — проданных товаров первого типа, Dat[2] — второго и т.д.). Определите, что будет напечатано в результате выполнения программ: Program mas6; Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1]:= 2; Dat[2]:= 5; Dat[3]:= 8; Dat[4]:= 5; Dat[5]:= 4; Dat[6]:= 2; Dat[7]:= 0; Dat[8]:= 6; Dat[9]:= 4; Dat[10]:=19; m := 0; for k := 5 to 9 do if Dat[k] > m then begin m := Dat[k] end; writeln(m); End.
Задание

В таблице хранятся данные о количестве проданных единиц товаров \(Dat⟨0⟩ — проданных товаров первого типа, Dat⟨1⟩ — второго и т\.д\.\). Определите, что будет напечатано в результате выполнения программ:
Program mas6;
Var k, m: integer;
Dat: array

\[1\.\.10\]
of integer;
Begin
Dat
\[1\]
:= 2; Dat
\[2\]
:= 5;
Dat
\[3\]
:= 8; Dat
\[4\]
:= 5;
Dat
\[5\]
:= 4; Dat
\[6\]
:= 2;
Dat
\[7\]
:= 0; Dat
\[8\]
:= 6;
Dat
\[9\]
:= 4; Dat
\[10\]
:=19;
m := 0;
for k := 5 to 9 do
if Dat
\[k\]
> m then
begin
m := Dat
\[k\]

end;
writeln\(m\);
End.