Membuat apliasi menghitung umur dengan satuan Jam menggunakan pascal

Sesuai judul diatas saya akan memperlihatkan scrip yang berhasil saya copas dari blog Kang Adyt. Berikut scripnya..

===========================================

Program Menghitung_Umur_Seseorang;

Uses Wincrt;

label awal, akhir;

Var  dd,mm,yy,x1,x2,x3,Total_Jam:longint;

        ulang:char;

Begin

awal:

clrscr;

Writeln ('Masukkan Umur Anda Dalam:');

Writeln ('=========================');

Write ('Tahun = ');read (yy);

Write ('Bulan = ');read (mm);

Write ('Hari  = ');read (dd);

x1:=yy * 365 * 24;

x2:=mm * 30 * 24;

x3:=dd * 24;

Total_Jam:=x1+x2+x3;

Writeln ('==================================');

Writeln ('Anda sekarang hidup adalah ',(Total_Jam), ' Jam');

Writeln ('==================================');

Writeln('Created, Ardiansyah || 20142205026 || TI.11');

Writeln ('==================================');

Writeln ('Mau menghitung ulang? [Y/T]: ');

    ulang := readkey;

if upcase(ulang)='Y' then goto awal

else goto akhir;akhir:

     

end.

=================================================

dan Hasilnya Kurang Lebih Seperti ini..