В таблице Dat хранятся данные ежедневных измерений количества осадков за неделю в миллиметрах \(Dat⟨0⟩ – данные за понедельник, Dat⟨1⟩ – за вторник и т\.д\.\). Определите, что будет напечатано в результате выполнения следующего алгоритма.
var k, day: integer;
Dat: array

of integer;
begin
Dat := 14; Dat := 10; Dat := 0; Dat := 15; Dat := 0; Dat := 15; Dat := 10;
day := 0;
for k := 1 to 7 do
if Dat = 0 then
day := k;
write\(day\);
end.