Определите и напишите, что будет выведено в результате выполнения следующего фрагмента программы, если одномерный массив имеет следующие значения: 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);