Nhập vài hai số a và b,in ra phân số tối giản của a và b với a là tử,b là mẫu và ngăn cách bởi dấu /

uses crt;

var a, b, i : integer;

begin

clrscr;

write('Nhap tu so, mau so = '); readln(a, b);

for i := a downto 1 do

    if (a mod i = 0) and (b mod i = 0) then break;

write('Phan so toi gian : ', a div i ,' / ', b div i);

readln

end.

uses crt;
var e,f,i,a,b,c,d: byte;
begin
clrscr;
write('Tu so = '); readln(e);
write('Mau so = '); readln(f);

a:=e;
b:=f;

writeln('Phan so ban dau: ',e,'/',f);

while E <> F do
if E > F then E:=E-F
else F:=F-E;

If e <> 1 then
begin
a:=a div e;
b:=b div e;
write('Phan so toi gian: ',a,'/',b);
end
else write('Phan so da toi gian, ',a,'/',b);
readln
end.