Учитель написал на доске написал код процедуры сортировки на трех языках (см. рисунок), а также массив из 12 целых чисел, который надо отсортировать: 6, 5, 10, 0, 3, 8, 11, 1, 4, 7, 2, 9. Ваша задача: определить, сколько перестановок будет сделано в процессе сортировки. Одна перестановка — обмен местами двух элементов. В качестве ответа выведите одно целое число.

ошибка в ответе "Ответ: 32"

Ответ не 32

Ответ: 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]>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.