belajar script pascal "if then"

hai agan-agan semuanya...gimana kabar kalian hari ini.mudah-mudahan selalu dalam lindungan TuhanYME.aamiin.

pada kesempatan kali ini ku masih ingin belajar tentang blog. sekalian juga ingin mengingat tentang salah satu pelajaran dalam mata kuliah ku,yaitu tentang log-algo...ada satu soal yang kami kerjakan dalam UTS semester 1 th angkatan 2012/2013..soal yang dikerjakan dengan memakai script "if then" ataupun "case of"..dan akupun memilih script "if then" untuk mengerjakannya...dan di bawah ini adalah hasil yang kubuat kemarin...

Program Prestasi;

uses crt;

var

 NM :string;

                NP,ND,NB,NIM,R:real;

begin

     clrscr;

     writeln('PROGRAM NILAI MAHASISWA');

     writeln('=======================');

     writeln;

     write('Nama Mahasiswa =');readln(NM);

     write('NIM            =');readln(NIM);

     writeln;

     write('Nilai Pascal   =');readln(NP);

     write('Nilai Delphi   =');readln(ND);

     write('Nilai Bahasa C =');readln(NB);

     writeln;

     R:=(NP+ND+NB)/3;

     writeln('Rata-rata      =',R:0:2);

     if R<=20 then

       write('tidak Lulus')

       else

        if (R>20) and (R<=40) then

        write('kurang')

        else

           if (R>40) and (R<=60) then

           write('Cukup')

           else

              if (R>60) and (R<=80) then

              write('Baik')

              else

                 if (R>80) and (R<=100) then

                 write('Memuaskan')

                 else

                 write('error');

     readln;

end.

demikian cara yang ku gunakan dan programnya berhasil di runing,tp setelah berulang kali di edit...wkwkwkwk..maklumlah,namanya juga masih tahap awal pembelajaran.hehehe..