viết chương tình pascal(sử dụng hàm):kiểm tra một số có phải là ước của số cho trước hay không

function kt(x:integer):boolean;

var j:integer;

  kt:=false;

    if j mod x=0 then kt:=true else kt:=false;

end;

Phan than ban tu lam ha

uses crt;
var m,n:integer;

function check(n,m:integer):boolean;
begin
exit(n mod m=0);
end;

begin
clrscr;
readln(n,m);
write(check(n,m));
readln
end.

//code này trả về TRUE nếu `m` là ước của `n` nhé