contoh soal cara mengisi biodata dengan menggunakan turbo pascal 

program biodata;
uses crt;
var
nama, tempattgllahir, jeniskelamin, alamat, agama, nohp, email, pekerjaan:string;
umur:integer;
begin
clrscr;
writeln(' ISILAH BIODATA DI BAWAH INI DENGAN BENAR'); 
writeln('============================');
writeln( ' BIODATA');
writeln('=========================');
write(' NAMA : '); readln(nama);
write(' TEMPAT, TGL LAHIR : '); readln(tempattgllahir);
write(' JENIS KELAMIN : '); readln(jeniskelamin);
write(' ALAMAT : '); readln(alamat);
write(' AGAMA : '); readln(agama);
write(' NO HP : '); readln(nohp);
write(' E-MAIL : '); readln(email) ;
write(' PEKERJAAN : '); readln(pekerjaan);
writeln('=======================');
writeln(' PENGISIAN BIODATA SELESAI');
writeln('=============================');
writeln(' INILAH DATA ANDA ');
writeln('=================');
writeln(' anda bernama ',nama,'.');
writeln(' tempat, tgl lahir anda ', tempattgllahir,'.');
writeln(' anda berjenis kelamin ' ,jeniskelamin,'.');
writeln(' anda tinggal di ' ,alamat,'.');
writeln(' agama anda ' ,agama,'.');
writeln(' no hp anda ',nohp,'.');
writeln(' e-mail anda ',email,'.');
writeln(' pekerjaan anda ',pekerjaan,'.');
writeln('=======================');
readln;
end.