Membuat Biodata di Turbo Pascal

oke kali ini saya akan menuliskan program untuk bikin biodata di turbo pascal...

yang saya bikin cukup sederhana dan mudah di pelajari, ..

Program Biodata;
uses crt;
var
   nama, alamat, bulan, tempatlahir :string;
   tanggal, tahun, no, RT :integer;
begin
clrscr;
       write('Nama          : '); readln(nama);
       write('Tempat Lahir  : '); readln(tempatlahir);
       write('Tanggal Lahir : '); readln(tanggal);
       write('Bulan Lahir   : '); readln(bulan);
       write('Tahun Lahir   : '); readln(tahun);
       write('Alamat        : '); readln(alamat);
       write('No. Rumah     : '); readln(no);
       write('RT            : '); readln(RT);
readkey;
end.



nah, bagi yang ingin mengcopas jangan lupa link blog saya tlong di sebarkan ya...
Terima Kasih..