program input_data_mahasiswa;
uses crt;
var
a,b:string;
c,d:integer;
begin
textbackground(blue); {background color}
clrscr;
textcolor(red);
writeln('******************************');
textcolor(white);
writeln(':::  INPUT DATA MAHASISWA  :::');
textcolor(red);
writeln('******************************');
textcolor(white);
write('NIM = '); readln(a);
writeln();
write('NAMA = '); readln(b);
writeln();
write('TAHUN LAHIR = '); readln(c);
d:=2012-c;
textcolor(red);
writeln('..............................');
textcolor(white);
write('umur anda sekarang= ',d);
writeln(' tahun');

textcolor(red);
writeln('..............................');
writeln();
textcolor(red);
writeln('=================================');
textcolor(white);
writeln('Tugas Ke-4 Oleh MUHAMMAD MASRURI');
textcolor(red);
writeln('=================================');
readln;
end.