Даны две дроби а/в и с/d (a, в,c, d — натуральные числа). составьте программу вычитания из первой дроби второй. ответ должен быть несократимой дробью. использовать подпрограмму алгоритма евклида для определения нод.

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 function euclid(a,b: integer): integer; begin   while a< > b do if a> b then a-=b else b-=a;   result: =a end; begin   var a,b,c,d: integer;   write('числитель и знаменатель первой дроби: ');   read(a,b);   write('числитель и знаменатель второй дроби: ');   read(c,d);   var zn: =b*d;   var ch: =a*d-c*b;   var sgn: =sign(ch); ch: =abs(ch);   var gcd: =euclid(ch,zn);   write('результат вычитания: ');   if sgn=-1 then write('-');   writeln(ch div gcd,'/',zn div gcd) end. тестовое решение: числитель и знаменатель первой дроби: 7 12 числитель и знаменатель второй дроби: 3 4 результат вычитания: -1/6

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

имя       возраст     занятие

оля         13             пение

петя         14           баскетбол

вася         13             хоккей

катя         15             танцы

коля         11         баскетбол

серёжа     11           футбол