Известная авиа­ком­па­ния за­но­си­ла дан­ные о ко­ли­че­стве уте­рян­но­го ба­га­жа за год в таб­ли­цу Lose. Всего были за­не­се­ны дан­ные за по­след­ние 10 лет ра­бо­ты ком­па­нии \(Lose⟨0⟩ — ко­ли­че­ство уте­рян­но­го ба­га­жа за пер­вый год работы, Lose⟨1⟩ — за вто­рой год и т\. д\.\). Определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический язык
алг
нач
цел­таб Lose

цел t, m
Lose := 1; Lose := 5
Lose := 3; Lose := 6
Lose := 7; Lose := 12
Lose := 1; Lose := 3
Lose := 3; Lose := 1
m := 0
нц для t от 1 до 10
если Lose > 3 то
m := m + Lose
все
кц
вывод m
кон

Бейсик
DIM Lose\(10\) AS INTEGER
DIM t,m AS INTEGER
Lose\(1\) = 1: Lose\(2\) = 5
Lose\(3\) = 3: Lose\(4\) = 6
Lose\(5\) = 7: Lose\(6\) = 12
Lose\(7\) = 1: Lose\(8\) = 3
Lose\(9\) = 3: Lose\(10\) = 1
m = 0
FOR t = 1 TO 10
IF Lose\(t\) > 3 THEN
m = m + Lose\(t\)
END IF
NEXT k
PRINT m

Паскаль
Var t, m: integer;
Lose: array

of integer;
Begin
Lose := 1; Lose := 5;
Lose := 3; Lose := 6;
Lose := 7; Lose := 12;
Lose := 1; Lose := 3;
Lose := 3; Lose := 1;
m := 0;
For t := 1 to 10 Do
If Lose > 3 Then
Begin
m := m + Lose;
End;
Writeln\(m\);
End.