Напишите процедуру, которая сокращает дробь вида m/n. числитель и знаменатель дроби как изменяемые параметры. пример: введите числитель и знаменатель дроби: 25 15 после сокращения: 5/3

Var       a, b: integer; function greatest_common_divisor(m, n: integer): integer; var       modulo: integer; begin       modulo : = m mod n;       if modulo = 0 then               greatest_common_divisor : = n       else               greatest_common_divisor : = greatest_common_divisor(n, modulo) end; procedure reduce_the_fraction(a, b: integer); var       gcd: integer;       sign: string; begin       gcd : = greatest_common_divisor(a, b);       if a * b < 0 then               sign : = '-';       writeln(sign, abs(a) / gcd, '/', abs(b) / gcd); end; begin       write('enter two numbers: ');       readln(a, b);       reduce_the_fraction(a, b); end.

3  6  9  12  15  18  21  24  27  30  33  36  39  42  45  48  51  54  57  60  63  66  69  72  75  78  81  84  87  90  93  96  99  102  105  108  111  114  117  120  123  126  129  132  135  138  141  144  147  150  153  156  159  162  165  168  171  174  177  180  183  186  189  192  195  198  201  204  207  210  213  216  219  222  225  228  231  234  237  240  243  246  249  252  255  258  261  264  267  270  273  276  279  282  285  288  291  294  297  300

Const maxn=15; var a: array[1..maxn] of integer;     skv,prod,gr,i: integer; begin   writeln('введите ',maxn,' чисел');   skv: =0;   prod: =1;   gr: =0;   for i: =1 to maxn do   begin     write(i,': ');   readln(a[i]);     if a[i]< 0 then skv: =skv+a[i]*a[i];     if (a[i] mod 2 = 0) and (i mod 2 = 0) then         prod: =prod*a[i];     if abs(a[i])> 100 then gr: =gr+1;   end;   writeln('сумма квадратов отрицательных:   ',skv);   writeln('произведение четных на четных местах:   ',prod);   writeln('больше 100 по модулю:   ',gr); end. введите 15 чисел 1: 151 2: -231 3: 104 4: 19 5: 36 6: -112 7: 5 8: 8 9: 11 10: 13 11: 45 12: 5 13: 6 14: 17 15: 19 сумма квадратов отрицательных:   65905 произведение четных на четных местах:   -896 больше 100 по модулю:   4