uses crt; var a,b:integer; procedure toigian(a1,b1:integer); begin while a1<>b1 do if a1>b1 then a1:=a1-b1 else b1:=b1-a1; writeln(a div a1,'/',b div b1); end; begin clrscr; write('Nhap tu so: ');readln(a); write('Nhap mau so: ');readln(b); toigian(a,b); readln; end.
uses crt; var a,b:integer; procedure toigian(a1,b1:integer); begin while a1<>b1 do if a1>b1 then a1:=a1-b1 else b1:=b1-a1; writeln(a div a1,'/',b div b1); end; begin clrscr; write('Nhap tu so: ');readln(a); write('Nhap mau so: ');readln(b); toigian(a,b); readln; end.
