Учитель написал на дощечке написал код процедуры сортировки на 3-х языках

Ответ: 32
Решение:
var arr: array [1..12] of real;    s, tmp: real;    element_id_1, element_id_2: integer;begin  s:=0;  for element_id_1:=1 to 12 do readln (arr[element_id_1]);  for element_id_1:=1 to 12 do  begin    for element_id_2:=1 to element_id_1-1 do    begin    if arr[element_id_2]gt;arr[element_id_1] then    begin    tmp:=arr[element_id_2];    arr[element_id_2]:=arr[element_id_1];    arr[element_id_1]:=tmp;    s:=s+1;    end;    end;    end;      writeln(s);end.