Program Menghitung Umur

program menghitung_umur;

uses wincrt;

var

   nama:string;

   umur,TL:integer;

begin

writeln ('input nama: '); readln (nama);

writeln ('input tahun lahir: ') ; readln (TL);

umur:=2011-TL;umur:=2011-TL;

writeln (umur);

end.