00.42
Unknown
uses crt;var i,n:byte; no:array[1..100] of string; nim_12012739:array[1..100] of string; nama:array[1..100] of string; alamat:array[1..100] of string; umur:array[1..100] of integer; jawab:string;label tampil, keluar, input;begin textbackground(blue); clrscr; //inputan textcolor(yellow); input: writeln('*=======================*'); writeln('| BIODATA MAHASISWA |'); writeln('*=======================*'); writeln; write('Masukan Jumlah data = '); readln(n); writeln; for i:=1 to n do begin ...
