ClubPoker-DNA

uses wincrt;
var
a,b,x:integer;
nilai:array[1..10] of integer;
no,nama,nim:array[1..10]of string;

procedure input_data;
begin
clrscr;
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;
end;
procedure lap_data;
begin
clrscr;
gotoxy(25,5);writeln('DAFTAR NILAI MAHASISWA');
gotoxy(25,6);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;
begin
writeln('Menu');
writeln('1.Input Data');
writeln('2.Laporan Data');
write('Tekan 1 untuk menginput data: ');readln(x);
if x=1 then
begin
input_data;
end;
write('Tekan 2 untuk melihat laporan data: ');readln(x);
if x=2 then
begin
lap_data;
end;
end.