В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat [1] - количество голосов, поданных за первого исполнителя; Dat [2] - за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический  язык        Бейсик    Паскаль
алг        DIM Dat (10) AS INTEGER    Var k, m: integer;
нач        DIM k,m AS INTEGER    Dat: array[1..10] of integer;
целтаб Dat[1:10]        Dat(1) = 16: Dat(2) = 20    Begin
цел к,    m    Dat(3) = 20: Dat(4) = 41    Dat [1] := 16; Dat [2] := 20;
Dat [1]    = 16    Dat(5) = 14: Dat(6) = 21    Dat[3] := 20; Dat[4] := 41;
Dat [2]    = 20    Dat(7) = 28: Dat(8) = 12    Dat[5] := 14; Dat[6] := 21;
Dat [3]    = 20    Dat(9) = 15:Dat(10) = 35    Dat[7] := 28; Dat[8] := 12;
Dat [4]    = 41    ш = 0    Dat[9] := 15; Dat[10] := 35;
Dat [5]    = 14    TOR k = 1 TO 10    m := 0;
Dat [6]    = 21    IF Dat (k) xn THEN    for k := 1 to 10 do
Dat [7]    = 28    m = Dat(k)    if Dat [k] >m then
Dat [8]    = 12    ENDIF    begin
Dat [9]    = 15    NEXT k    m : = Dat [k]
Dat[10]    := 35    PRINT m    end;
m := 0            writeln(m) ;
нц для к от 1 до 10            End.
если Dat [к] >ш то            
ш : =    Dat [k]        
все            
КЦ            
вывод m            
кон