Hitung nilai mahasiswa pascal

Hitung nilai kehadiran mahasiswa pascal

program hitung_nilai;
var
Np:string[6];
Nama:string[30];
NK1,NK2,NK3,NK4,NK5,NK6,NK7,NK8,NK9,NK10,NK11,NK12,NK13,NK14,NK15,TH,NT1,NT2,NT3,NT4,NT5,TT,NM,NF:integer;
TNK,TNT,NA:Real;
NH:char;

begin
writeln('menghitung nilai akhir');
write('masukan no pokok:');
readln(NP);
write('masukan nama:');
readln(Nama);
write('masukan nilai kehadiran ke 1='); read(NK1);
write('masukan nilai kahadiran ke 2='); read(NK2);
write('masukan nilai kehadiran ke 3='); read(NK3);
write('masukan nilai kehadiran ke 4='); read(NK4);
write('masukan nilai kehadiran ke 5='); read(NK5);
write('masukan nilai kehadiran ke 6='); read(NK6);
write('masukan nilai kehadiran ke 7='); read(NK7);
write('masukan nilai kehadiran ke 8='); read(NK8);
write('masukan nilai kehadiran ke 9='); read(NK9);
write('masukan nilai kehadiran ke 10=');read(NK10);
write('masukan nilai kehadiran ke 11=');read(NK11);
write('masukan nilai kehadiran ke 12=');read(NK12);
write('masukan nilai kehadiran ke 13=');read(NK13);
write('masukan nilai kehadiran ke 14=');read(NK14);
write('masukan nilai kahadiran ke 15=');read(NK15);
TH:=15;
TNK:=(NK1+NK2+NK3+NK4+NK5+NK6+NK7+NK8+NK9+NK10+NK11+NK12+NK13+NK14+NK15)*(100
)/TH;
writeln('nilai kehadiran=',TNK:10:2);
writeln;
write('masukan nilai tugas ke 1='); read(NT1);
write('masukan nilai tugas ke 2='); read(NT2);
write('masukan nilai tugas ke 3='); read(NT3);
write('masukan nilai tugas ke 4='); read(NT4);
write('masukan nilai tugas ke 5='); read(NT5);
TT:=5;
TNT:=(NT1+NT2+NT3+NT4+NT5)/5;
writeln('nilai tugas=',TNT:10:2);
writeln;
write('masukan nilai mid=');
read(NM);
write('masukan nilai final=');
read(NF);
NA:=(0.1*TNK)+(0.3*TNT)+(0.3*NM)+(0.3*NF);
writeln('nilai akhir=',NA:10:2);
writeln;
read(NA);
if NA>=75 then
begin
NH:='A';
end
else if(NA>=60) and (NA<80) then
begin
NH:='B';
end
else if(NA>=40) and (NA<60) then
begin
NH:='C';
end
else if(NA>=30) and (NA<40) then
begin
NH:='D';
end
else
NH:='E';
writeln('nilai huruf:',NH);
end.