uses crt;
var x,y : longint;
i,j,t : integer;
begin clrscr;
t:=0;
repeat write('Nhap x :'); readln(x);
until (x>10) and (x<100000);
y:=x;
write('Cac chu so theo thu tu nguoc dao la :');
while y<>0 do begin
write(y mod 10 :2);
y:=y div 10;
end;
writeln;
while x<>0 do begin
t:=t+ x mod 10;
x:=x div 10;
end;
write('Tong cac chu so cua x la :', t);
readln
end.

#include<bits/stdc++.h>
using namespace std;
#define cls system("cls")
int ucln(int a, int b){
    if (a == 0 || b == 0){
        return a + b;
    }
    while (a != b){
        if (a > b){
            a -= b;
        }else{
            b -= a;
        }
    }
    return a;
}
int bcnn(int a, int b)
{
    return a*b/ucln(a,b);
}
int main()
{
    int x,y;
    cout<<"Nhap x,y: ";
    cin>>x>>y;
    if(x<=10||x>=100000){
        cls;
        return main();
    }
    int n=x,total=0;
    while(n!=0){
        cout<<n%10<<" ";
        total+=n%10;
        n/=10;
    }
    cout<<total<<endl;
    cout<<bcnn(x,(bcnn(total,y)));
    //samon247
    return 0;
}