Program konversi nilai dengan pascal

Berikut adalah sintaq untuk membuat program konversi nilai dengan menggunakan Pascal yang saya peroleh dalam perkuliahan Algoritma Pemograman. Semoga bermanfaat :)

uses wincrt;

var

   nilai_angka : byte;

  nilai_huruf : string;

Begin

  writeln('Program Konversi Nilai');

  write('Masukkan Nilai Angka = ');

  readln(nilai_angka);

  Case nilai_angka Of

    81..100 : nilai_huruf :='A  sangat baik';

    66..80  : nilai_huruf :='B  baik';

    56..65  : nilai_huruf :='C  cukup';

    46..55  : nilai_huruf :='D  buruk';

    0..45   : nilai_huruf :='E  sangat buruk';

  end;

writeln('Nilai Huruf =',nilai_huruf);

End.