Sintak Program Input Nilai Mahasiswa Pada Pascal

Silahkan sobat copy code dibawah ini kemudian pastekan ke lembar kerja program pascal di komputer atau leptop sobat!

Uses WinCrt;
Const
garis='-------------------------------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
nim : Array [1..10] Of String [8];
nama : Array [1..10] Of String [50];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
  ClrScr;
  { pemasukan data dalam array }
  Writeln ('Maximize dulu windows anda,');
  Writeln ('untuk mendapat hasil yang maksimal!!!');
  Write ('Berapa Data Mahasiswa yang aka diinput :');
  Readln (n);
  For i:= 1 To n Do
  Begin
    ClrScr;
    GotoXY(30,4+1); Write('Data Ke-:',i:2);
    GotoXY(10,5+i); Write('NIM :'); Readln(nim[i]);
    GotoXY(10,6+i); Write('Nama :'); Readln(nama[i]);
    GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);
    GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);
  End;
  { proses data dalam array }
  ClrScr;
  GotoXY(5,4); Write(Garis);
  GotoXY(5,5); Write ('No');
  GotoXY(9,5); Write ('NIM');
  GotoXY(18,5); Write ('Nama');
  GotoXY(38,5); Write ('Nilai 1');
  GotoXY(45,5); Write ('Nilai 2');
  GotoXY(52,5); Write ('Rata');
  GotoXY(59,5); Write ('Abjad');
  GotoXY(5,6); Write (Garis);
  { proses Cetak isi array dan seleksi kondisi }
  bar := 7;
  For i:= 1 To n Do
  Begin
    jum:=(nil1[i]+nil2[i])/2;
    If jum>= 90 Then tl:='A'
    Else
      If jum>80 Then tl:='B'
    Else
      If jum>60 then tl:='C'
    Else
      If jum>50 Then tl:='D'
    Else
      tl:='E';
    { cetak hasil yang disimpan di array dan hasil }
    { penyeleksian kondisi }
    GotoXY(5,bar); Writeln(i:2);
    GotoXY(9,bar); Writeln (NIM[i]);
    GotoXY(18,bar); Writeln (NAMA[i]);
    GotoXY(38,bar); Writeln (NIL1[i]:4);
    GotoXY(45,bar); Writeln (NIL2[i]:4);
    GotoXY(52,bar); Writeln (jum:5:1);
    GotoXY(59,bar); Writeln (tl);
    bar:=bar+1;
  End;
  GotoXY(5,bar+1);Writeln(garis);
  Readln;
End.