PROGRAM Data_barang; USES CRT; TYPE T_TOKO=RECORD KD_BARANG:LONGINT; JENIS_BARANG:STRING[30]; NM_BARANG:STRING[20]; ST_BARANG:INTEGER; HARGA:LONGINT; KONDISI:STRING[9]; END; VAR TOKO:ARRAY[1..600]OF T_TOKO; I,N:INTEGER; PIL:CHAR; PROCEDURE MASUK; BEGIN N:=0; REPEAT CLRSCR; INC(N); TEXTCOLOR(YELLOW); WRITELN; WRITELN(‘ PENGISIAN DATA TOKO KE : ‘,N); WRITELN(‘ ==========================’); WRITELN; WITH TOKO[N] DO BEGIN WRITE(‘ KODE BARANG : ‘);READLN(KD_BARANG); WRITE(‘ JENIS BARANG : ‘);READLN(JENIS_BARANG); WRITE(‘ NAMA BARANG : ‘);READLN(NM_BARANG); WRITE(‘ STOCK BARANG : ‘);READLN(ST_BARANG); WRITE(‘ HARGA @ : ‘);READLN(HARGA); WRITE(‘ KONDISI : ‘);READLN(KONDISI); END; WRITELN; WRITE(‘SELESAI TEKAN [y/Y] : ‘);PIL:=READKEY; UNTIL ((PIL=’y’)OR(PIL=’Y’)); END; PROCEDURE LAPORAN; B...