Nhập ngày tháng năm sinh của một người sau đó xem bói cho người ta bằng cách lấy hai số của ngày cộng hai số của tháng cộng 4 số của năm cộng liên tục

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.