program StatusSiswa; uses crt; var nama, tempattgllahir, jeniskelamin, alamat, agama, nohp, email, pekerjaan:string; umur:integer; begin textcolor(10); clrscr; writeln (' '); writeln(' ISILAH STATUS ANDA DI BAWAH INI '); textcolor(12); writeln('==============================================================================='); textcolor(10); writeln( ' BIODATA'); textcolor(12); 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('===============================================================================');...