Pemrograman Pascal

Contoh program menggunakan bahasa pemrograman pascal :

PROGRAM KursMataUang;
uses crt;
var IDR,MYR,JPY,INR,pil,CNY,EUR:real;
BEGIN
clrscr;
writeln('Program Konversi Mata Uang');
read;
writeln('--------------------------');
read;
writeln('1.Konversi Ringgit menjadi Rupiah');
read;
writeln('2.Konversi Yen menjadi Rupiah');
read;
writeln('3.Konversi Rupee menjadi Rupiah');
read;
writeln('4.Konversi Yuan menjadi Rupiah');
read;
writeln('5.Konversi Euro menjadi Rupiah');
read;
write('Masukkan Pilihan : ',pil:1:0);
readln(pil);
if pil=1 then
begin
write('Masukkan nilai Ringgit : ');
readln(IDR);
MYR:= 2921*IDR;
Writeln('Dalam Ringgit : ',MYR:3:2);
readln;
end
else
if pil=2 then
begin
write('Masukkan nilai Yen : ');
readln(IDR);
JPY:= 106*IDR;
writeln('Dalam Rupiah : ',JPY:3:2);
readln;
end
else
if pil=3 then
begin
write('Masukkan nilai Rupee : ');
readln(IDR);
INR:= 196*IDR;
writeln('Dalam Rupiah : ',INR:3:2);
readln;
end
else
if pil=4 then
begin
write('Masukkan nilai Yuan : ');
readln(IDR);
CNY:= 1350*IDR;
writeln('Dalam Rupiah : ',CNY:3:2);
readln;
end
else
begin
write('Masukkan nilai Euro : ');
readln(IDR);
EUR:= 12063*IDR;
writeln('Dalam Rupiah : ',EUR:3:2);
readln;
end
end.