mencetak biodata

program Biodata;

uses
winCrt;

var
nl:string[25];
np:string[20];
jrsn,almt:string[35];
jk:char;

begin
gotoxy(12,3);writeln('Biodata Pribadi');
gotoxy(9,4);writeln('**-----------------**');
writeln;
write('Nama Lengkap     :');readln(nl);
write('Nama Panggilan   :');readln(np);
write('jurusan          :');readln(jrsn);
write('Alamat           :');readln(almt);
write('Kelamin [L/P]    :');readln(jk);
writeln;
clrscr;
gotoxy(10,2);writeln('Biodata Mahasiswa');
gotoxy(9,3);writeln('====================');
writeln;
writeln('Nama Lengkap       :',nl);
writeln('Jurusan            :',jrsn);
writeln('Alamat             :',almt);
writeln('Kelamin            :',jk);  

end.