Menghitung Umur dalam Satuan Hari

program menghitung_umur_dalam_satuan_hari;
uses crt;
var tgl,bl,tl, tgs, bs, ts, umur: integer;
begin
clrscr;
write ('Masukkan tanggal lahir anda =');readln (tgl);
write ('Masukkan bulan lahir anda =');readln (bl);
write ('Masukkan tahun lahir anda =');readln (tl);
write ('Masukkan tanggal sekarang =');readln (tgs);
write ('Masukkan bulan sekarang   =');readln (bs);
write ('Masukkan tahun sekarang   =');readln (ts);
bs:=bs*30;
bl:=bl*30;
ts:=ts*365;
tl:=tl*365;
umur := (tgs-tgl) + (bs-bl) + (ts-tl);
writeln('usia anda dalam satuan hari=',umur);
readkey;
end.

Semoga Bermanfaat!!!!!!