перевод неправильной дроби в правильную несократимую
код на pascalabc.net

Var a,b,am,nod,bb:integer;begin readln(a); writeln('--------'); readln(b); am:=a mod b; bb:=b; while am*b<>0 do  if am>b then am:=am mod b else b:=b mod am; nod:=am+b; writeln(a div bb,' ',a mod bb div nod,'/',bb div nod);end.Ввод:14-------3Вывод:4 2/3