uses wincrt;
const awal=1;
akhir=5;
var
nim :array [awal...akhir]of string;
nama :array [awal...akhir]of string;
nilai :array [1...5] of integer;
n,i :integer;

begin
write('banyaknya data mahasiswa: ');readln (n);
for n:1 to n do
begin
write('nim-',n,':');readln(nim[n]);
write('nama-',n,':');readln(nama[n]);
for i:=1 to 3 do
begin
write(('nilai ke',i,'=');readln(nilai[i]);
writeln;
end;

end;
writeln;
writeln('hasil dari inputan adalah:');
writeln('=========================================');
writeln('nim nama nilai 1 nilai 2 nilai 3 rata-rata');
writeln('=========================================');
for i := 1 to n do
begin

writeln (nim[n],' ',nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);
writeln;
end;
end.