konversi angka ke teks pada pascal

kali ini saya akan sedikit berbagi pengetahuan yang telah saya dapat dari perkuliahan hari ini sengaja saya share ulang barang kali ada agan yang membutuhkan materi KONVERSI ANGKA KE TEKS PADA PASCAL... okey langsung simak di bawah..

program KonversiAngkaketeks ;
uses wincrt;

ini sintaksnya

var
angka : integer;
begin
write('masukan angka = ');readln(angka);

case angka of

1 : write ('satu') ;
2 : write ('dua')   ;
3 : write ('tiga') ;
4 : write ('empat')  ;

else
writeln('angka dimasukan salah');
end;
end.

hasil outputnya seperti ini

sekian postingan dari saya semoga bermanfaat kalo ada waktu luang saya akan post kembali ... wasalam wr.wb