Определите и напишите, что будет выведено в результате выполнения следующего фрагмента программы, если одномерный массив имеет следующие значения: 12, 15, 17, 15, 14, 12, 10, 13, 14, 15: m := 0;
for k := 1 to 10 do
if Dat[k] > m then
begin
m := Dat[k];
end;
writeln(m);