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

of integer;
Begin
Dat := 12; Dat := 15;
Dat := 17; Dat := 15;
Dat := 14; Dat := 12;
Dat := 10; Dat := 13;
Dat := 14; Dat := 15;
m := 0;
for k := 1 to 10 do
if Dat > 12 then
begin
m := m + 1;
end;
writeln\(m\);
End.