Program Pascal Menampilkan Nilai Mahasiswa Menggunakan Perulangan While end While

Nahhh ini adalah salah satu program pascal untuk Menampilkan Nilai Mahasiswa menggunakan Perulangan While end While

1. Programnya

Program DaftarNilaiMahasiswa;
uses crt;
var
NIM,Nama,NHuruf : String;
NM,NT,NF,TN : real;
lg : char;
begin
lg:='Y';
While Upcase(lg)='Y' do
begin
clrscr;
Writeln('DAFTAR NILAI MAHASISWA');
Writeln(' STMIK BUDI DARMA');
Writeln('=================================');
Write('Input Nama :');readln(Nama);
Write('Input NIM :');readln(NIM);
Write('Input NTugas :');readln(NT);
Write('Input NMID :');readln(NM);
Write('Input NFINAL :');readln(NF);

TN :=0.2*NT+0.3*NM+0.5*NF;

if (TN <=100) and (TN >=80) then
NHuruf :='A'
else if (TN<=79) and (TN >=70) then
NHuruf :='B'
else if (TN<=69) and (TN >=51) then
NHuruf :='C'
else if (TN<=50) and (TN >=41) then
NHuruf :='D'
else if TN <=40 then
NHuruf :='E';

Writeln('Total Nilai :',TN:2:0);
Writeln('NHuruf :',NHuruf);
Writeln('===================================');
Write('Ingin Menghitung Lagi [Y/T]:');readln(lg);
end;
readln;
end.

2. Tampilan Program dalam Pascal