ClubPoker-DNA

uses wincrt;

var

a,b:integer;

nilai:array[1..10]of integer;

no,nama,nim:array[1..10]of string;

begin

writeln;

write('Berapa data yang diinginkan: ');readln(a);

              begin

              for b:=1 to a do

                  begin

                  write('No.');readln(no[b]);

                  write('Nama: ');readln(nama[b]);

                  write('NIM: ');readln(nim[b]);

                  write('Nilai: ');readln(nilai[b]);

                  end;

              end;

writeln;

gotoxy(25,15);writeln('DAFTAR NILAI MAHASISWA');

gotoxy(29,16);writeln('SEMESTER III');

writeln('---------------------------------');

writeln('||No|| ||Nama|| ||NIM|| ||Nilai||');

writeln('---------------------------------');

        for b:=1 to a do

        begin

        write('  ',no[b],'    ');

        write('  ',nama[b],'   ');

        write('  ',nim[b],'    ');

        write('  ',nilai[b]);

        writeln;

        end;

end.