ДАЮ 30 БАЛЛОВ
Дана программа. В массиве Olimp содержится информация о количестве участников в олимпиадах (Olimp [0] – количество участников в первом классе, Olimp [1] – во втором и т. д.). Определите, какое число будет напечатано в результате работы алгоритма:

program Olimpiada;

var k,m: integer;

Olimp : Array [0..10] of integer;

begin

Olimp [0] := 19; Olimp [1] := 25;

Olimp [2] := 20; Olimp [3] := 23;

Olimp [4] := 23; Olimp [5] := 27;

Olimp [6] := 25; Olimp [7] := 23;

Olimp [8] := 28; Olimp [9] := 22;

Olimp [10] := 22;

m := 0;

for k:= 0 to 10 do

if Olimp [k] < 25 then

m := m + 1;

writeln(m);

end.