Уровень в. только 2, 4, 5 номера. . прошу. 15

Нужно взять сумму произведений числителей и знаменателей крест накрест, то есть a на d, b на c, и поделить на произведение знаменателей. в форме, чтоб понятнее было:   . дальше можно сократить: для удобства запишем получившийся числитель в переменную n, а знаменатель - в m.   найдем для этого наибольший общий делитель, и для данного алгоритма запишем значение m в переменную m1, n в n1, чтобы не портить их значения: если n1> m1, поменяем значение переменной n1 на n1-m1, если же m1> n1, то сделаем наоборот - присвоим переменной m значение m1-n1, повторим этот алгоритм до тех пор, пока m1> 0 и n1> 0. после завершения цикла выберем большее число из m и n,   и оно будет наиб. общим делителем. теперь вернемся к дроби m/n. поделим m и n на получившийся наибольший общий делитель. выведем получившиеся результаты. m - в качестве числителя, и n - знаменателя. дроби суммированы.

Uses crt; const       a: array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36); var sr: real;     i,n,sum: integer; begin       for i: =1 to 10 do write(a[i]: 3);       writeln;       for i: =1 to 10 do       if a[i]> 50 then       begin           sum: =sum+a[i];           n: =n+1;       end;       sr: =sum/n;       writeln('среднее значение горячих участков: ',sr); end.