Задание

Определите, какое число будет напечатано в результате работы следующей программы.

var Dat: array[1..7] of integer;

k, day: integer;

begin

Dat[1] := 9; Dat[2] := 11;

Dat[3] := 10; Dat[4] := 13;

Dat[5] := 8; Dat[6] := 5;

Dat[7] := 11;

day := 0;

for k := 1 to 7 do begin

if Dat[k] <= 10 then

day := day+1;

end;

writeln(day);

end.