Tugas 4

program biodata;
uses crt;
var
  a,b:string;
  c,d:integer;
begin
  textbackground(11); {background colour}
  clrscr;
  textbackground(96);
  textcolor(128);
  writeln('-----------------------------------');
  writeln('-------- BIODATA MAHASISWA --------');
  writeln('-----------------------------------');
  writeln;
  write('NIM         = '); readln(a);
  write('Nama        = '); readln(b);
  write('Tahun Lahir = '); readln(c);
  d:=2012 - c;
  writeln('Umur Anda   = ',d,' ','tahun'); readln;
  writeln;
  writeln('Tugas Ke-4,i,12012739,Misbahul Munir');
  readln;
end.