Ở Ảnh nha bn

uses crt;
var s,a,b,c:longint; 
function tong(a:longint):longint;
begin
   tong:=0;
   repeat
      inc(tong,a mod 10);
      a:=a div 10;
   until a=0;
end;
begin
clrscr;
   write('Ngay sinh: ');readln(a);
   write('Thang sinh: ');readln(b);
   write('Nam sinh: ');readln(c);
   s:=a+b+c;
   while s>9 do 
      s:=tong(s);
   if s=1 then writeln('That bai nang ne :)') else
   if s=2 then writeln('Tinh duyen lan dan') else
   if s=3 then writeln('Kha la thanh cong') else
   if s=4 then writeln('Sau nay that bai') else
   if s=5 then writeln('Khong co gi dac biet') else
   if s=6 then writeln('Tren troi rot xuong') else
   if s=7 then writeln('Lam ti phu') else
   if s=8 then writeln('Song lau tram tuoi') else
   if s=9 then writeln('Sau nay lam sieu nhan');
readln
end.