Задание

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

var Ves: array[1..14] of integer;

i, n: integer;

begin

Ves[1] := 25; Ves[2] := 21;

Ves[3] := 23; Ves[4] := 28;

Ves[5] := 30; Ves[6] := 25;

Ves[7] := 31; Ves[8] := 28;

Ves[9] := 25; Ves[10] := 28;

Ves[11] := 30; Ves[12] := 27;

Ves[13] := 26; Ves[14] := 24;

n := 0;

for i := 1 to 14 do begin

if Ves[i] > 26 then

n := n + 1

end;

writeln(n);

end.