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

Question

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

Answer 1

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