làm nhanh giúp tôi với ạ mn ơi

uses crt;
var n,t:longint;
begin
clrscr;
assign(input,'MOTCS.INP');reset(input);
assign(output,'MOTCS.OUT');rewrite(output);
readln(n);
repeat
t:=0;
while n>0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
n:=t;
until t<10;
writeln(t);
readln;
end.

#danglam228

#include <bits/stdc++.h>
using namespace std;
int main() {
    ios_base::sync_with_stdio(false);
    cin.tie(0); cout.tie(0);
    freopen("MOTCS.INP", "r", stdin);
    freopen("MOTCS.OUT", "w", stdout);
    long long n;
    cin >> n;
    while (n >= 10) {
        long long res = 0;
        while (n > 0) {
            res += n % 10;
            n /= 10;
        }
        n = res;
    }
    cout << n << endl;
    return 0;
}