Viết hàm tìm ƯCLN và hàm tìm BCNN của 2 số nguyên dương M và N. Viết chương trình tính giá trị của 1) S1/S2 = a/b + c/d 2) S3/S4 = x/y - z/t Bạn nào biết giúp mình với ạ .thanks

BCNN:program BCet;
uses crt;
var a,b :integer; BC :longint; BCNN :longint;
begin
        write('Nhap a: '); readln(a);
        write('Nhap b: '); readln(b);
        BC:=a*b;
        While a <> b do
        if a>b then a:=a-b else b:=b-a;
        BCNN:=BC div a;
        writeln(BCNN);
        readln;
end.
UCLN:

program Bai_5_WhileDo_UCLN;
uses crt;
var a,b,r,a1,a2 :int64;
begin
        clrscr;
        a1:=a;
        a2:=b;
        write('Nhap a: ');readln(a);
        write('Nhap b: ');readln(b);
        r:= a MOD b;
        While r <> 0 do
                begin
                        a:=b;
                        b:=r;
                        r:=a MOD b;
                end;
       write('UCLN(',a1,',',a2,')= ',b);
        readln;
end.

Đây là bài Viết hàm tìm ƯCLN và hàm tìm BCNN của 2 số nguyên dương M và N.

Còn bài dưới thì bạn ghi rõ đề hơn được không ạ?

.

#include <bits/stdc++.h>
using namespace std;
int gcd(int a, int b) {
    int tmp;
    while(b != 0) {
        tmp = a % b;
        a = b;
        b = tmp;
    }
    return a;
}
int main(){
    int M,N;
    cin>>M>>N;
    cout<<"UCLN("<<M<<","<<N<<") = "<<gcd(a,b)<<endl;
    cout<<"BCNN("<<M<<","<<N<<") = "<<(a*b)/gcd(a,b);
    //samon247
    return 0;
}