Tugas Struktur Data SI 08B1

uses wincrt;

type
nilai1 = array[1..10] of integer;
nm1 = array[1..10] of string;
nama1 = array[1..10] of string;

var
nilai : nilai1;
i,n : integer;
nim : nim1;
nama : nama1;
begin
write('Masukan Banyaknya Mahasiswa =');
readln(n);
for i:= 1 to n do
begin
write('Masukan nim =');readln(nim[i]);
write('Masukan nama =');readln(nama[i]);
for i := 1 to n do
begin
write('Masukan nilai ',i,' =');
readln(nilai[i]);
end;
end;
for i := 1 to n do
begin
writeln(Nim[i],'',nama[i],'',nilai[i],''nilai[i+1]);
end;
end.