Viết chương trình tối giản phân số A/B biết A , B nguyên dương ( 1 < A , B < 10000 )

uses crt;
var i,a,b:longint;
begin
clrscr;
   write('A,B= ');readln(a,b);
   i:=a;
   while (a mod i<>0)or(b mod i<>0) do dec(i);
   writeln(a div i,' / ',b div i);
readln
end.

program rut_gon_phan_so;
uses crt;
var a, b, t, m: integer;
begin
clrscr;
write ('nhap tu so: '); readln (a);
write ('nhap mau so: '); readln (b);
t:=a;
m:=b;
IF a=b then
 begin
 writeln ('yeu cau a <> b');
 readln;
 exit;
 end;
repeat
if a > b then
a:=a-b
else
b:=b-a;
until a=b;
writeln ('UCLN cua 2 so nay la: ',a);
writeln ('tu so sau khi rut gon: ',t/a:5:2);
writeln ('mau so sau khi rut gon: ',m/a:4:2);
writeln ('==================== HET ====================');
readln;
end.