PASCAL : CONTOH PROGRAM HITUNG UMUR

Listing Program : 

program htg_umur;
uses crt;
var nama: string;
    th_L, umur: integer;
const th_skr:integer=2010;

begin
clrscr;
writeln('    PROGRAM HITUNG UMUR');
writeln('---------------------------');
write('Masukkan nama anda      : '); readln(nama);
write('Masukkan Tahun kelahiran: '); readln(th_L);
  umur:= th_skr - th_L;
writeln('Umur anda sekarang      : ',umur);
readln;
end.