không biết có đúng k nữa:
uses crt;
var i:integer;
   n,k,t,vt:longint;
kt:boolean;
begin
clrscr;
Write(' Nhap so n: '); Readln(n);
k:=n;
repeat
t:=t+(n-((n div 10)*10));
n:=n div 10;
until n mod 10=0;
if t-((t div 10 )*10)=9 then kt:=true
  else kt:=false;
vt:=k-((k div 10)*10);
k:=k div 10;
repeat
if vt>(k-((k div 10)*10)) then kt:=true
  else kt:=false;
k:=k div 10;
until (k mod 10 =0) or (kt= false);
if kt=true then writeln(' So may man')
else writeln(' Khong la so may man ');
readln;
end.