ada yg bisa program pascal?

heru

cara menentukan indeks nilai mahasiswa..

- nilai akhir dihitung dari 30% UTS, 40% UAS, 20% tugas dan 10% kehadiran

- indeks nilai ditentukan berdasarkan nilai (NA),

bila NA >= 85 maka indeksnya A

bila 85 > NA >= 70 maka nilai indeksnya B

bila 70 > NA >= 55 maka nilai indeksnya C

bila 55 > NA >= 40 maka nilai indeksnya D

bila NA < 40 maka nilai indeknya E

mohon bantuannya .....

ust

uses wincrt;

var

NilaiUTS, NilaiUAS, NilaiTugas, NilaiKehadiran, NA:real;

begin

write('Masukkan nilai UTS:');

readln(NilaiUTS);

write('Masukkan nilai UAS:');

readln(NilaiUAS);

write('Masukkan nilai Tugas:');

readln(NilaiTugas);

write('Masukkan nilai Kehadiran:');

readln(NilaiKehadiran);

NA := (0.3 * NilaiUTS) + (0.4 * NilaiUAS) + (0.2 * NilaiTugas) + (0.1 * NilaiKehadiran);

If NA > 84 then

writeln('A');

If NA < 85 and NA > 69 then

writeln('B');

If NA < 70 and NA > 54 then

writeln('C');

If NA < 55 and NA > 39 then

writeln('D');

Else

writeln('E');

End.