Yaş hesaplayan bir program

uses crt;
var
ad,soyad,dgyr:string;
tarih:integer;
begin
clrscr;
write('isim giriniz.:');
readln(ad);
write('soyad giriniz.:');
readln(soyad);
write('dogum yeriniz.:');
readln(dgyr);
write('dogum tarihiniz.:');
readln(tarih);
writeln;
writeln(ad,' ',soyad,' ','adli sahis ',dgyr,' de dogmus ve su an ',2006-tarih,' yasında dır..');
writeln;
writeln;
readln;
end.:36: