program data;
uses wincrt;
var
NAMA :ARRAY [1..10] OF STRING;
NIM :ARRAY [1..10] OF STRING;
T_MANDIRI :ARRAY [1..10] OF INTEGER;
N_ABSEN :ARRAY [1..10] OF INTEGER;
N_UTS :ARRAY [1..10] OF INTEGER;
N_UAS :ARRAY [1..10] OF INTEGER;
N_AKHIR :ARRAY [1..10] OF REAL;
N_HURUF :ARRAY [1..10] OF CHAR;
M_KULIAH :ARRAY [1..10] OF STRING [15];
N,I :INTEGER;
uses wincrt;
var
NAMA :ARRAY [1..10] OF STRING;
NIM :ARRAY [1..10] OF STRING;
T_MANDIRI :ARRAY [1..10] OF INTEGER;
N_ABSEN :ARRAY [1..10] OF INTEGER;
N_UTS :ARRAY [1..10] OF INTEGER;
N_UAS :ARRAY [1..10] OF INTEGER;
N_AKHIR :ARRAY [1..10] OF REAL;
N_HURUF :ARRAY [1..10] OF CHAR;
M_KULIAH :ARRAY [1..10] OF STRING [15];
N,I :INTEGER;
