Program menghitung Lembar Uang dengan menggunakan Pascal

Hal yang paling pertama sobat blogger lakukan ialah "membuka editor pascalnya" (ya iyalah, masa buka c++).. #lol...

Kalau saya sih pake yang Borland Pascal saja.

okeh, berikutnya sediakan kopi,susu, teh atau minuman apa saja, trus ketikkan deh script di bawah ini!! {perhatikan scriptnya dengan benar yah}

PROGRAM HITUNG_LEMBAR_UANG;

USES CRT;

VAR UANG, C: LONGINT;

JUMLAH: BYTE;

PROCEDURE INPUT;

BEGIN

WRITE('INPUT NILAI UANG : Rp.');

READLN(UANG);
WRITELN;
END;

FUNCTION HITUNG(VAR A, B: LONGINT): BYTE;

VAR HASIL: BYTE;
BEGIN HASIL: = A DIV B;
A: = A MOD B;
JUMLAH: = JUMLAH + HASIL;
HITUNG: = HASIL;
END;
BEGIN CLRSCR;
INPUT;
C: = 100000;
WRITELN('JUMLAH LEMBAR Rp.100000 = ', HITUNG(UANG, C));
C: = 50000;
WRITELN('JUMLAH LEMBAR Rp. 50000 = ', HITUNG(UANG, C));
C: = 20000;
WRITELN('JUMLAH LEMBAR Rp. 20000 = ', HITUNG(UANG, C));
C: = 10000;
WRITELN('JUMLAH LEMBAR Rp. 10000 = ', HITUNG(UANG, C));
C: = 5000;
WRITELN('JUMLAH LEMBAR Rp. 5000 = ', HITUNG(UANG, C));
C: = 2000;
WRITELN('JUMLAH LEMBAR Rp. 2000 = ', HITUNG(UANG, C));
C: = 1000;
WRITELN('JUMLAH LEMBAR Rp. 1000 = ', HITUNG(UANG, C));
C: = 500;
WRITELN('JUMLAH LEMBAR Rp. 500 = ', HITUNG(UANG, C));
WRITELN('----------------------------+');
WRITELN;
WRITELN('TOTAL LEMBAR UANG = ', JUMLAH);
READLN;
END. 
{sampai di end. saja yah}

kalau misalnya dah selesai diketik, dicompile deh pake tombol [F9], kalo ada pesan orang, coba deh periksa apa errornya, :) kalo dah gak ada lagi errornya, bisa kita Run pake tombol [ctrl+F9]... dan (ta raaaahhhhh), tampilan outputnya kurang lebih kayak yang di bawah nih...