program hitung_umur;
uses wincrt;
 nama:string;
 umur,tahun:integer;

begin                        
    writeln('masukkan nama:');readln(nama);
    writeln('masukkan tahun lahir:');readln(tahun);
    umur:=2011-tahun;
    write('umur:');writeln(umur);readln(umur);