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