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:

[belirsizbekleyis]

savıoooooooooooool

[seidoslynx]

sagolasın....

[bardasli]

sagol kardes

[kemal_s]

ellerine saglik

[a_sarikaya58]

en çok bu bölümü sevdim galiba
çünküü u bölüm harikaa
benim bıranşım

[şabo58]

Elıne saglık