program bai_giai;
uses crt;
var m,n,ucln,i:longint; ms,ts:real;
begin
 clrscr;
  write('nhap tu so n, mau so n:');readln(n,m);
  for i:=1 to n do if(n mod i=0)and(m mod i=0)then ucln:=i;
  ts:=n/ucln;
  ms:=m/ucln;
  writeln(ms:4:0);
  writeln(' -----');
  write(ts:4:0);
 readln
end.

Program;

uses crt;

var tu,mau:integer;

Function UCLN(a,b:integer):integer;

var r: integer;

begin

r:= a mod b;

while r <> 0 do

begin

a:= b;

b:= r;

r:=a mod b;

end;

UCLN:=b;

end;

begin

clrscr;

write(‘Nhap tu: ‘); readln(tu);

write(‘Nhap mau: ‘); readln(mau);

write(‘Ket qua rut gon: ‘,tu,’/’,mau,’=’,tu div UCLN(tu,mau),’/’,mau div UCLN(tu,mau));

readln

end.