Program Konversi Nilai dengan Bahasa Pascal

program konversi;
var
angka:integer;

begin
writeln('mengkonversi nilai angka menjadi huruf');
write('masukan nilai anda = ');readln(angka);
if ((angka>=0) and (angka<=20)) then
writeln('nilai anda adalah huruf = e')
else if ((angka>20) and (angka<=40)) then
writeln('nilai anda adalah huruf = d')
else if ((angka>40) and (angka<=60)) then
writeln('nilai anda adalah huruf = c')
else if ((angka>60) and (angka<=80)) then
writeln('nilai anda adalah huruf = b')
else
writeln('nilai anda adalah huruf = a');
end.

Posted in: BAHASA PASCAL