Расположи ниже следующие элементы по порядку, показанные на рисунке.
​

Var   n1, d1, n2, d2, m, n, d, nn, dd, nod: integer;   r: double; begin   writeln('нахождение суммы двух простых дробей.');   write('введите через пробел числитель и знаменатель первой дроби: ');   readln(n1, d1);   write('введите через пробел числитель и знаменатель второй дроби: ');   readln(n2, d2);   {находим результат, как простую дробь}   n : = n1 * d2 + n2 * d1;   d : = d1 * d2;   r : = n / d;   {если дробь неправильная, надо исключить целое число}   if n > d then begin m : = n div d; n : = n mod d end   else if n = d then begin m : = 1; n : = 0; d : = 1 end   else m : = 0;   {возможно числитель и знаменатель дроби могут быть частично сокращены}   if n < > 0 then begin       {ищем нод числителя и знаменателя и делим их на него}       nn : = n; dd : = d;       while nn < > dd do           if nn > dd then nn : = nn - dd else dd : = dd - nn;       nod : = nn;       if nod < > 1 then begin n : = n div nod; d : = d div nod end;   end;   write(n1, '/', d1, ' + ', n2, '/', d2, ' = ');   if m > 0 then       if n < > 0 then writeln(m, ' ', n, '/', d, ' = ', r)       else writeln(m)   else       writeln(n, '/', d, ' = ', r) end. тестовые примеры: нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 25 5 введите через пробел числитель и знаменатель второй дроби: 64 256 25/5 + 64/256 = 5 1/4 = 5.25 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 8 19 введите через пробел числитель и знаменатель второй дроби: 154 221 8/19 + 154/221 = 1 495/4199 = 1.11788521076447 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 5 7 введите через пробел числитель и знаменатель второй дроби: 12 42 5/7 + 12/42 = 1 нахождение суммы двух простых дробей. введите через пробел числитель и знаменатель первой дроби: 1 5 введите через пробел числитель и знаменатель второй дроби: 3 11 1/5 + 3/11 = 26/55 = 0.472727272727273