Задание

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

Var k, m: integer;

Tur: array[1..10] of integer;

Begin

Tur[1] := 1;

Tur[2] := 11;

Tur[3] := 8;

Tur[4] := 12;

Tur[5] := 5;

Tur[6] := 6;

Tur[7] := 15;

Tur[8] := 16;

Tur[9] := 16;

Tur[10] := 21;

m := 5;

For k := 1 to 10 Do

If Tur[k] < 12 Then

Begin

m := m + Tur[k];

End;

Writeln(m); End.

21

5

36

38