program data;
uses wincrt;
var
nim : array [1..20] of string;
nama : array [1..20] of string;
umur : array [1..20] of byte;
nilai : array [1..20] of integer;
n, i : integer;
ulang : string;
begin
ulang:='ya';
while (ulang = 'ya') or (ulang = 'YA') do
Begin
{Clrscr;}
writeln;
writeln(' ***************************** ');
writeln(' * UNIVERSITAS PUTRA BATAM * ');
writeln(' ***************************** ');
writeln;
write('Masukkan jumlah penginputan : '); readln (n);
writeln;
writeln('Silahkan Masukkan data mahasiswa');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln;
for i := 1 to n do
begin
writeln('DATA Ke ' ,i);
write(' NIM : '); readln(nim[i]);
write(' Nama : '); readln(nama[i]);
write(' Umur : '); readln(umur[i]);
write(' Nilai : '); readln(nilai[i]);
writeln;
end;
begin
writeln(' DATA MAHASISWA SEMESTER GANJIL (2009/2010) ');
writeln(' +=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+');
writeln;
writeln('====================================================');
writeln('NIM NAMA UMUR NILAI');
writeln('====================================================');
for i := 1 to n do
begin
writeln( nim[i]:3, nama[i]:13, umur[i]:16, nilai[i]:18);
end;
writeln('====================================================');
write('ulang data lagi tekan ya : ');readln(ulang);
end;
end;
readln;
donewincrt;
End.