
PROGRAM COBA;USES CRT;VAR NM : ARRAY[1..100] OF STRING[15];NL : ARRAY[1..100] OF INTEGER;X, JD,JML,NMIN,NMAX : INTEGER;TANYA : CHAR;RATA : REAL;BEGIN X:=0;REPEATX:=X+1;CLRSCR;WRITELN('DATA KE : ', X:3);WRITE('NAMA SISWA ......