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

Question

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

---

Answer 1

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.

Ответ
7