Procedure Hitung Nilai Akhir dan Grade

Listing berikut adalah program menghitung Nilai akhir dan menentukan grade dengan menggunakan Procedure.

uses crt;
procedure hitung_nilai(var tugas,aktif,ujian,nilai : real);
begin
nilai:=((0.3*tugas)+(0.3*aktif)+(0.4*ujian));
end;

procedure grade(var grade:char;nilai:real);
begin
if (nilai>=80) and (nilai<=100) then
grade:='A'
else
if (nilai>=69) and (nilai<=79) then
grade:='B'
else
if (nilai>=59) and (nilai<=68) then
grade:='C'
else
grade:='D';
end;

var
ntugas,naktif,nujian,nakhir : real;
nama,pel : string;
ngrade,ulang : char;
label atas;

begin
atas : clrscr;
write('Nama Siswa :');readln(nama);
write('Mata Pelajaran :');readln(pel);
write('Nilai Tugas :');readln(ntugas);
write('Nilai Keaktifan :');readln(naktif);
write('Nilai Ujian :');readln(nujian);

clrscr;
hitung_nilai(ntugas,naktif,nujian,nakhir);
grade(ngrade,nakhir);
writeln('LEMBAGA KURSUS "ILMU DUNIA"');
writeln('---------------------------');
writeln('Siswa yang Bernama :',nama);
writeln('Mendapat Nilai Akhir Sebesar :',nakhir:2:2);
writeln('Pada Mata Pelajaran :',pel);
writeln('Dengan Grade Nilai :',ngrade); readln;
write('Hitung Lagi [Y/T] ?');readln(ulang);
if (ulang='Y') or (ulang='y') then
goto atas;
readln;
end.

Output dari Listing diatas adalah sebagai berikut :