MEMBUAT PROGRAM BIODATA MENGGUNAKAN PASCAL

ok bro saya akan sedit berbagi cara membuat program biodata dengan menggunakan pascal
nah langsung ja kita ke tkp...
1. Download Aplikasi Pascal..
     berikut ane bagi aplikasi Pascal yang mudah untuk membuat program2..
     ini linknya gan.. (Download)
2.  buka program pascal anda
3.  dan ketikan kode di bawah ini

program biodata;
uses crt;
var
nama,alamat,jeniskelamin, statusperkawinan,tempattgllahir,agama,pekerjaan,goldarah:string;
umur:integer;
begin
textcolor(10);
clrscr;
WRITELN(' ');
writeln('             ISILAH BIODATA DI BAWAH INI DENGAN BENAR'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
writeln( '                          BIODATA');
TEXTCOLOR(12);
writeln('===============================================================================');
write(' NAMA              : '); readln(nama);
write(' UMUR              : '); readln(umur) ;
write(' TEMPAT/TGL LAHIR  : '); readln(tempattgllahir);
write(' JENIS KELAMIN     : '); readln(jeniskelamin);
write(' ALAMAT            : '); readln(alamat);
write(' AGAMA             : '); readln(agama);
write(' STATUS PERNIKAHAN : '); readln(statusperkawinan);
write(' PEKERJAAN         : '); readln(pekerjaan);
writeln('===============================================================================');
textcolor(10);
  writeln('  PENGISIAN BIODATA SELESAI');
  TEXTCOLOR(12);
WRITELN('===============================================================================');
  TEXTCOLOR(10);
writeln('  INILAH DATA ANDA ');
textcolor(12);
writeln('==============================================================================='); TEXTCOLOR(10);
writeln('@ anda bernama ',nama,'.''   |@ umur anda ',umur,' TAHUN.');
writeln('@ tempat/tgl lahir anda ', tempattgllahir,'.');
writeln('@ anda berjenis kelamin ' ,jeniskelamin,'.');
writeln('@ anda tinggal di ' ,alamat,'.');
writeln('@ agama anda' ,agama,'.''     |@ status anda ',statusperkawinan,'.');
WRITELN('@ pekerjaan anda ',pekerjaan,'.'); TEXTCOLOR(12);
writeln('===============================================================================');
TEXTCOLOR(10);
WRITELN(' PASTIKAN DATA ANDA BENAR, BILA ANDA SUDAH YAKIN DATA ANDA BENAR TEKAN ENTER! ');
readkey;
readln;
end.

3. selanjutnya langsung runing ja bro....
selanjutnya tinggal kteatifitas kmu ja bro bisa kmu edit kode di atas jangan lupa komennya ya bro....
smoga berguna bro SUKSES BRO.