uses crt;
var x, y, u: longint;
x1, y1: real;
function  UC(a, b: longint): longint;
var sd: longint;
begin
 while (b<>0) do
  begin
   sd:=a mod b;
   a:=b;
   b:=sd;
  end;
 UC:=a;
end;
 begin
  clrscr;
   write ('nhap tu so: ');  readln (x);
   write ('nhap mau so: ');  readln (y);
   u:=UC(x,y);
   if u=1 then
    writeln ('phan so da toi gian');
   if u<>1 then
    begin
     x1:=x/u;
     y1:=y/u;
     writeln ('tu so sau khi rut gon la: ',x1:1:2);
     writeln ('mau so sau khi rut gon la: ',y1:1:2);
    end;
   readln;
 end.

uses crt;
var t,m,p: integer;
    function UCLN(a,b: integer): integer;
begin
 while (b<>0) do
  begin
        p:= a mod b;
        a:=b;
        b:=p;
    end;
    UCLN:=a;
end;
 begin
  clrscr;
   write ('Tu so: ');  readln (t);
   write ('Mau so: ');  readln (m);
   if UCLN(t,m)=1 then writeln ('Day la phan so toi gian') else
    begin
        writeln ('Tu so sau khi rut gon la: ',(t/UCLN(t,m)):3:2);
        writeln ('Mau so sau khi rut gon la: ',(m/UCLN(t,m)):3:2);
    end;
   readln
 end.