Определите, что будет напечатано в результате работы следующей программы:
program p1;
var
i, n: integer;
k: real;
const Dat: array[1..36] of real = (5, 5, 5, 5, 10, 5, 25, 10, 40, 30, 5, 40, 10, 6, 15, 7, 5, 10, 20, 5, 10, 15, 5, 35, 5, 2.5, 3, 2.5, 6, 50, 5, 3, 10, 5, 25, 15);
begin
k: = 0;
for i: = 1 to 36 do
if Dat[i]>k then begin k: = Dat[i]; n: = i; end;
writeln(̍k = ̍, k:5:2);
readln;
end.

очень срочно