Menentukan Nilai Mutu "algoritma dan pascal"

Program Pemberian Nilai Mutu;

Deklarasi:

            Nilai:Integer;

Deskripsi:

            Write('Nilai : ');readln(Nilai)

Case Nilai of

            80..100 : write ('Nilainya Adalah:A')

            65 ..79 : write ('Nilainya Adalah:B')

            40..64   : write ('Nilainya Adalah:C')

            0..39     : write ('Nilainya Adalah:D')

Otherwise

    write('Nilai Yang Anda Masukan Salah')


dan ini prinscreen nya jika mau di coba!