Membuat tabel pada PASCAL

Ini coding nya :

uses crt;

type data_mhs = record

     no:string;

     nama:string;

     nilai:string ;

end;

var

     mhs:array [1..20] of data_mhs;

     i,n : integer;

begin

clrscr;

     write('Masukkan Jumlah Mahasiswa : ');readln(n);

     for i:= 1 to n do

begin

     with mhs[i] do

begin

     write('No   : ');readln(no);

     write('Nama : ');readln(nama);

     write('Nilai: ');readln(nilai);

     writeln;

     end;

     end;

     writeln('_________________________');

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

     writeln('_________________________');

     for i:= 1 to n do

begin

     with mhs[i] do

begin

     write(‘|’);

writeln(no:3,   ‘|',nama:6,   '|',nilai:6,       '|');

     writeln('_________________________');

     end;

     end;

readln

end.

Output :

Flowchart :

Untuk logika , silakan anda kembangkan logika anda masing-masing ^.^