Tugas Pascal 2

Uses crt;
var n_murni:real;
grade:char;
function nilaiakhir(var n_absen,n_tgs,n_ujian:integer):integer;
begin
n_murni:=(n_absen*0.3)+(n_tgs*0.3)+(n_ujian*0.4);
end;


function nilaigrade:integer;
begin
if n_murni>=80 then
grade:='A'
else
if n_murni<70 then
grade:='B'
else
if n_murni<70 then
grade:='C';
end;

var nm:string;
nab,ntg,nuj:integer;
begin
clrscr;
writeln('Input Nilai');
writeln('-----------');
write('Nama Siswa :');readln(nm);
write('Nilai Absen :');readln(nab);
write('Nilai Tugas :');readln(ntg);
write('Nilai Ujian :');readln(nuj);
nilaiakhir(nab,ntg,nuj);
clrscr;
writeln('Siswa yang bernama :',nm);
writeln('Nilai Akhir =',n_murni:2:2);
writeln('Grade=',grade);
readln;
end.