Program Menghitung Umur

program menghitung_umur;
uses wincrt;
var d1,d2,b1,t1,a,b,c,d,e,f,g:integer;
begin
write('masukkan taggal,bulan,tahun lahir= ');read(d1,b1,t1);
writeln;
write('masukkan jangka waktu dalam hari= ');read(d2);
writeln;
a:=d1+d2;
b:=a div 30;
c:=a mod 30;
d:=b1+b;
e:=d div 12;
f:=d mod 12;
g:=t1+e;
write('tanggal sekarang= ',c,' ',f,' ',g,' ');
end.