bác nào bít pascal cho em hỏi bài này với.

bác nào bít pascal cho em hỏi bài này với.

Đề bài là như thế này ạ.
1.Nhập 2 số nguyên dương a,b và tìm ước số chung lớn nhất của 2 số đó
2.Nhập 1 số nguyên dương n bất kì và tìm tất cả các số nguyên tố từ 1 đến n,đếm xem có bao nhiêu số.

2 bài này là vợ em nhờ em giải giúp,em học pascal 4,5 năm rồi nên giờ wen sạch Bài 1 thì em chỉ nghĩ được đoạn tìm ước chung là như thế này :
đầu tiên khai báo
i: array [0..a] of integer
a,b .....
nhập a,b ...
tìm ước số chung:
for i=1 to a do (em giả thiết a<b)
if (trunc(S1) = S1) and (trunc(S2) = S2) then (S1,S2 là a/i và b/i)
Giờ tìm ước chung lớn nhất kiểu gì thì em ko nghĩ ra được.
Bác nào giúp em với

Bác cứ tìm ra thuật toán là vợ bác làm được mà
http://diendantoanhoc.net/forum/index.php?showtopic=12736