IF dalam PASCAL

Yahh sekedar share penggunaan IF dalam pascal,,,emm kira-kira tugas waktu masih semester 1,,atau semester 2 kayaknya yah (Lupaaaaaaaaaaaaa),,sudahlah,,,nih simak saja Kodenya hehe..

program ujian;

uses wincrt;

var

    nim : string[10];

    nama : string[20];

    hdir: integer;

    tgs : integer;

    mid : integer;

    final : integer;

    lain: integer;

    p_hdir:real;

    p_tgs:real;

    p_mid:real;

    p_final:real;

    jmlh:real;

    nilai:string[2];

begin

     write('NIM    : ');readln(nim);

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

     write('Jumlah Hadir: '); readln(hdir);

     write('Nilai Tugas : ');readln(tgs);

     write('Nilai Mid   : ');readln(mid);

     write('Nilai Final : ');readln(final);

     write('Lain-lain   : ');readln(lain);

     p_hdir:=0.20*hdir;

     p_tgs:=0.20*tgs;

     p_mid:=0.30*mid;

     p_final:=0.30*final;

     jmlh:=(p_hdir+p_tgs+p_mid+p_final);

     writeln('Jumlah Nilai Anda : ',jmlh:2:0);

     if jmlh>=80 then nilai:='A';

     if jmlh<=79 then nilai:='B';

     if jmlh<=64 then nilai:='C';

     if jmlh<=54 then nilai:='D';

     if jmlh<=35 then nilai:='E';

     Writeln('Nilai Anda Adalah: ', nilai);

     readkey;

end.

Nah Hasilnya seperti ini... : hehe (Nilai kepedeaann :p)