var u:real; s1,s2,s3,o,tg:LongInt; begin WriteLn('nhap ngay sinh:'); readln(s1); WriteLn('nhap thang sinh:'); ReadLn(s2); WriteLn('nhap nam sinh:'); ReadLn(s3); tg:=s1+s2+s3; while tg>10 do begin o:=tg; tg:=0; while o0 do begin tg:=tg + (o mod 10); o:= o div 10 end; end; writeln; if tg=1 then WriteLn('ban se duoc 10d toan'); if tg=2 then WriteLn('ban se duoc crush thich'); if tg=3 then WriteLn('ban se bi thay co la '); if tg=4 then WriteLn('ban se bi mat tien'); if tg=5 then WriteLn('ban se duoc ba tang qua'); if tg=6 then WriteLn('ban se lum duoc 100k'); if tg=7 then WriteLn('ban se duoc ban than moi an lau'); if tg=8 then WriteLn('ban se duoc trung ve di du lich han quoc'); if tg=9 then WriteLn('ban se duoc 9d van'); readln; end.