Program Konversi Nilai Angka Menjadi Huruf

program konversi;
var
angka:integer;
huruf:string;

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

Posted in: BAHASA PASCAL