Membuat ID Card Menggunakan Pascal

program ID_Card;

uses crt;
var nama:string;
nim,tahunlahir,umur:integer;
begin
clrscr; textcolor(lightcyan);
write('Nama Anda     : '); textcolor(lightred); readln(nama);
textcolor(lightcyan);
write('NIM           : '); textcolor(lightred); readln(nim);
textcolor(lightcyan);
write('Tahun Lahir   : '); textcolor(lightred); readln(tahunlahir);
textcolor(lightcyan);
umur:=2012-tahunlahir; textcolor(lightred);
textcolor(lightblue);
write('Umurku Saat Ini  : ',umur);
readln;
end.