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.
Tidak ada komentar:
Posting Komentar