исп Дроби

цел числитель
цел знаменатель

алг сложить (цел ч1, з1, ч2, з2)
нач
числитель := ч1*з2+ч2*з1
знаменатель := з1*з2
сократить дробь
кон

алг вычесть (цел ч1, з1, ч2, з2)
нач
числитель := ч1*з2-ч2*з1
знаменатель := з1*з2
сократить дробь
кон

алг умножить (цел ч1, з1, ч2, з2)
нач
числитель := ч1*ч2
знаменатель := з1*з2
сократить дробь
кон

алг разделить (цел ч1, з1, ч2, з2)
нач
числитель := ч1*з2
знаменатель := з1*ч2
сократить дробь
кон

алг сократить дробь
нач
цел нод
нод := НОД(числитель, знаменатель)
числитель := div(числитель, нод)
знаменатель := div(знаменатель, нод)
кон

алг цел НОД(цел а, б)
нач
цел нод1, нод2
нод1 := числитель
нод2 := знаменатель
нц пока не (нод1 = нод2)
нц пока нод1 > нод2
нод1 := нод1 - нод2
кц
нц пока нод1 < нод2
нод2 := нод2-нод1
кц
кц
|вывод "НОД = ", нод1, нс
знач := нод1
кон

алг вывод_дроби
нач
вывод числитель, " / ", знаменатель
кон

кон_исп