Program Pascal... ( menggunakan console application delphi 7.0 )

1. Penggunaan Kondisi  If .. Then ...
    Berikut adalah contoh program pascal sederhana dengan menggunakan if.. then.. untuk perhitungan nilai..
   
    Listing Program ...
    program If_Then;

   {$APPTYPE CONSOLE}

   uses
      SysUtils;
   Var
        Ns,Nm,sms,Mk,Jrs,N,Ket : String;
        NA,NT,NMd,NF : integer;
        TN : Real;
   begin
      writeln('Nilai Mahasiswa');
      writeln('++++++++++++++++');
      writeln;
      write('Masukkan No.Stambuk : ');Readln(Ns);
      write('Masukkan Nama       : ');Readln(Nm);
      write('Masukkan Semester   : ');Readln(sms);
      write('Masukkan Mata Kuliah: ');Readln(Mk);
      write('Masukkan Jurusan    : ');Readln(Jrs);
      writeln;
      Writeln('Nilai Mahasiswa');
      write('Nilai Absent : ');Readln(NA);
      write('Nilai Tugas  : ');Readln(NT);
      write('Nilai MID    : ');Readln(NMd);
      write('Nilai Final  : ');Readln(NF);
      TN := (NA + NT + NMd + NF)/4;
            if TN > 80 Then
               Begin
                   N := 'A';
                   Ket :='Sangat Memuaskan';
              End
           else
           if TN > 70 Then
              Begin
                  N := 'B';
                  Ket :='Memuaskan';
              End
           else
           if TN > 60 Then
              Begin
                N := 'C';
                Ket :='Cukup';
              End
          else
          if TN > 40 Then
             Begin
               N := 'D';
               Ket :='Kurang';
            End
         else
         if TN < 40 Then
           Begin
             N := 'E';
             Ket :='Tidak Lulus';
          End;
   writeln;
   writeln('No. Induk Mahasiswa : ',Ns);
   writeln('Nama Mahasiswa      : ',Nm);
   writeln('Semester            : ',Sms);
   writeln('Mata Kuliah         : ',Mk);
   writeln('Jurusan             : ',Jrs);
   writeln;
   writeln('Nilai Akhir : ',TN:4:0);
   writeln('Nilai : ',N);
   writeln('Keterangan : ',Ket);
   Readln;
end.


Selamat menikmati... :)