Program Array

 Program Data_mahasiswa;
uses crt;
var
   nama :array[1..10]of string[20];
   NPM:array[1..10]of string[20];
   alamat:array[1..20]of string[30];
   i,j :integer;

begin
clrscr;
       write('Masukkan Jumlah Data Mahasiswa :'); readln(j);
   for i:=1 to j do

begin
       writeln('Data ke-',i);
       write('Nama Mahasiswa :'); readln(nama[i]);
       write('Masukkan NPM :'); readln(NPM[i]);
       write('Alamat :'); readln(alamat[i]);
end;

clrscr;
       writeln('************************************************');
       writeln('No. |     Nama Mahasiswa |  NPM | Alamat|');
       writeln('************************************************');

   for i:= 1 to j do
begin
       writeln(i:1, nama[i]:20, NPM[i]:25, alamat[i]:25);
end;

       writeln('***********************************************');
readln;
end.