Latihan 5: Program Menghitung Umur Dalam Jam

Program Hitung_Umur_Dalam_Jam;
uses wincrt;
var
   tahun,bulan,hari,jam:longint;
begin
clrscr;
   writeln('Masukkan Umurmu berapa Tahun, Bulan dan Hari ?');
   writeln('Tahun=');readln(tahun);
   writeln('Bulan=');readln(bulan);
   writeln('Hari=');readln(hari);
   jam:=(24*hari)+(24*30*bulan)+(24*30*12*tahun);
   writeln('Jadi, Umur kamu sekarang dalam jam adalah=',jam,'jam');
   readln;

end.