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

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

цел k, m
Dat := 20; Dat := 25
Dat := 19; Dat := 25
Dat := 26; Dat := 22
Dat := 24; Dat := 28
Dat := 26; Dat := 21
Dat := 27
m := 0
нц для k от 1 до 11
если Dat < 25 то
m := m + 1
все
кц
вывод m
кон

Бейсик
DIM Dat\(11\) AS INTEGER
DIM k,m AS INTEGER
Dat\(1\) = 20: Dat\(2\) = 25
Dat\(3\) = 19: Dat\(4\) = 25
Dat\(5\) = 26: Dat\(6\) = 22
Dat\(7\) = 24: Dat\(8\) = 28
Dat\(9\) = 26: Dat\(10\) = 21
Dat\(11\) = 27
m = 0
FOR k = 1 TO 11
IF Dat\(k\) < 25 THEN
m = m + 1
END IF
NEXT k
PRINT m

Паскаль
Var k, m: integer;
Dat: array

of integer;
Begin
Dat := 20; Dat := 25;
Dat := 19; Dat := 25;
Dat := 26; Dat := 22;
Dat := 24; Dat := 28;
Dat := 26; Dat := 21;
Dat := 27;
m := 0;
for k := 1 to 11 do
if Dat < 25 then
begin
m := m + 1
end;
writeln\(m\)
End.