lets STUDY

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;
writeln (umur);
end.