viết ct nhập vào 2 số ng a và b. Tính ước chung lớn nhất của chúng (vt theo ct con nhé!)

#include<bits/stdc++.h>
using namespace std;
int gcd(int a, int b){
    if (a == 0 || b == 0){
        return a + b;
    }
    while (a != b){
        if (a > b){
            a -= b;
        }else{
            b -= a;
        }
    }
    int samon247=a;
    return samon247;
}
int main()
{
    int a,b;
    cout<<"Nhap a,b: ";
    cin>>a>>b;
    cout<<"UCLN(a,b)= "<<gcd(a,b);
    return 0;
}

uses crt;
var a,b  : integer;
function ucln(x,y : integer ) : integer;
var r : integer;
begin
while y<>0 do begin
r:=x mod y;
x:=y;y:=r;
end;
 ucln:=x; end;
begin clrscr;
write('Nhap a :'); readln(a);
write('Nhap b :'); readln(b);
write('UCLN cua ',a,' va ',b,' la :',ucln(a,b));
readln
end.