Hướng dẫn lập trình Pascal Tìm Mẫu số chung nhỏ nhất

Bài: Mẫu số chung nhỏ nhất (MSCNN)
Đề: Tìm mẫu số chung nhỏ nhất của các phân số.
Ví dụ: và thì sẽ được quy đồng thành và và mẫu số chung nhỏ nhất là 6.
Yêu cầu:
 File vào: gồm 2 dòng:
Dòng 1 là số N phân số
Dòng 2 gồm N*2 chữ số cách nhau 1 khoảng cách. (cứ 1 phân số thì
tử được viết trước, mẫu viết sau. Ví dụ: được viết là ‘1 2’
 File ra: gồm 1 dòng: là mẫu số chung nhỏ nhất của các phân số
MSCNN.INP
2
1223
3
133546

MSCNN.TXT
6

30

Chương trình:
Program mscnn;
var

a,b:array[1..100] of integer;
n,i:integer;
f,g:text;

//Chuong trinh con Tim boi chung nho nhat
function bcnn(k,h:integer):integer;
var i,j,t:integer;

begin
t:=k*h;
while h<>k do if h>k then h:=h-k else k:=k-h;


bcnn:=t div k;
end;

begin
assign(f,'d:\mscnn.inp');
reset(f);
assign(g,'d:\mscnn.txt');
rewrite(g);

readln(f,n);
while not eof(f) do
begin
i:=i+1;
read(f,a[i],b[i]);
end;

i:=1;
while ibegin
b[i+1]:=bcnn(b[i],b[i+1]);
i:=i+1;
end;
write(g,b[n]);
close(f); close(g);
end.