Tugas Struktur Data 4

uses wincrt;
const awal =1;
const akhir =5;

var
nim,nama :array [awal..akhir] of string;
nilai :array [awal..akhir] of string;
n,i :integer;
jumlah,rataan : real;
begin
write ('banyak nya data mahasiswa =');
readln(n) ;
for n :=1 to 3 do
begin
write('nim',n,':');readln(nim[n]);
write('nama',n,':');readln(nama[n]);
for i:=1 to 3 do
begin
write('nilai ke',n,'=');readln(nilai[i]);
writeln;
end;
end;
writeln;
writeln('hasil dari inputan adalah =');
writeln('=====================');
writeln('nim nama nilai1 nilai 2 nilai 3 rata-rata');
writeln('=====================');
for i:= i to 3 do
begin
writeln(nim [n],' ', nama[n],' ',nilai[1],' ',nilai[2],' ',nilai[3]);
writeln;
end;
end.