Find Your Age

Program age;
uses wincrt;
var tgl1, tgl2, bl1, bl2, th1, th2, jmlHari : longint;
    year, month, day : integer;
    again : boolean; choose : char;
Begin
     clrscr;
     again := true;
   while again Do
     Begin
     writeln('program to know your birth day');
     writeln('input your birth day  ');
     write('day   :');readln(tgl1);
     write('month :');readln(bl1);
     write('year  :');readln(th1);
     writeln('input this day        ');writeln;
     write('day   :');readln(tgl2);
     write('month :');readln(bl2);
     write('year  :');readln(th2);
     Jmlhari := (th2-th1)*360+(bl2-bl1)*30+(tgl2-tgl1);
     year := Jmlhari div 360;
     month:= Jmlhari mod 360 div 30;
     day  := Jmlhari mod 360 mod 30;
     write('your age ',Year,' year ',month,' Month ',day,' day');
     writeln; writeln;
     write('Mau coba lagi? (Y/T)'); readln(choose);
     if (choose ='t') or (choose='T') then again := False;
   end;
     readln;
End.

and the output is like this :