giúp mình nha mọi người

#include <bits/stdc++.h>

using namespace std;

bool check(long long n)
{
    int s = 0, k = n;
    while (n != 0)
    {
        s += n % 10;
        n /= 10;
    }
    return k % s == 0;
}

int main()
{
    long long n, t;
    cin >> t;
    while (t--)
    {
        cin >> n;
        cout << check(n) << '\n';
    }
}

uses crt;
var n,i,j,kq,x: longint;
t: array[1..100000] of longint;
begin
clrscr;
write('Nhap so n: '); Readln(n);
for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(t[i]); end;
i:=1;
while i<=n do
 begin
 x:=t[i];
 kq:=0;
 while x>0 do
  begin
  kq:=kq+x mod 10;
  x:=x div 10;
  end;
 if t[i] mod kq=0 then writeln(1) else writeln(0);
 i:=i+1;
 end;
readln;
end.

Chúc bạn học tốt!