Program Data Mahasiswa Pascal

program abc;
uses crt;
type data=record
    Nama: string;
    NIM: string;
    kota{kota asal mahasiswa}: string;
end;
var
  mhs : array[1..30] of data;
  i,n,z : integer;

begin
clrscr;
writeln ('silahkan masukan jumlah mahasiswa yang akan diinput');
readln(n);
for i:=1 to n do
begin
  writeln('Data Mahasiswa ke-',i);
  write('masukkan nama : '); readln(mhs[i].nama);
  write('masukkan NIM  : '); readln(mhs[i].nim);
  write('kota          : '); readln(mhs[i].kota);
  writeln;
end;
writeln('No  Nama      NIM       Kota');
writeln('----------------------------------');
for i:=1 to n do
begin
  writeln(i,' ',mhs[i].nama,'  ',mhs[i].nim,' ',mhs[i].kota);
end;
writeln;
writeln('----------------------------------');
writeln('Nama : Antommy Fachrizal Arrafi');
writeln('NIM  : 111114338');
readln;
end.

Posted in: Program Pascal