contoh coding KASIR :

Program Kasir;
uses wincrt;
var
nama_barang : array[1..20] of string;harga : array [1..20] of real;
     banyak : array[1..20] of byte;kata,grs :string;x,y,i,j :byte;
     Jum_Harga,Total_Harga,disc,Total_Bayar,uang :real;
begin
     clrscr;
grs:='===============================================================';
kata:='Program Kasir';x:=round((78-length(kata))/2);
gotoxy(x,2);
writeln(kata);
x:=round((78-lenght(grs))/2);
gotoxy(x,3);write(grs);
{-----------------------------}
gotoxy(x,4);write('Data Belanja');
gotoxy(x,5);write(grs);
gotoxy(x,6);writeln('| No | Nama Barang | Harga Satuan |Banyak | Jumlah Harga |');
gotoxy (x,7);write(grs);
{-----------------------------------------------}
i:=0;Total_Harga:=0;repeat
       i:=i+1;
       gotoxy(x,7+i);write('| ',i);
       gotoxy(x+5,7+i);write('|');
       gotoxy(x+7,7+i);readln(Nama_barang[i]);

       if Nama_Barang[i]  <>'' then begin
      gotoxy(x+25,7+i);write('|');
      gotoxy(x+28,7+i);readln(Harga[i]);
      gotoxy(x+28,7+i);writeln(Harga[i]:10:2);
      gotoxy(x+41,7+i)write('|');
      gotoxy(x+44,7+i);readln(Banyak[i]);
      gotoxy(x+50,7+i);write('|');
      Jum_Harga:=Harga[i]*Banyak[i];
      gotoxy(x+53,7+i);writeln(Jum_Harga;10;02);
      gotoxy(x+65,7+i)writeln('|');
      Total_Harga:=Total_Harga+Jum_Harga ; end;

    until nama_barang[i]='';
    {----------------------------------------------------------------}
    disc:=0;
    if (Total_Harga > 10000) and (Total_Harga <100000) then
    disc:=0.05 * Total_Harga
    else if (Total_Harga >= 100000 ) then
    disc:=0.1 *Total_Harga;{--------------------------------------------------}
         kata:='Faktur Penjualan';
         y:=round((78-length(kata))/2);
         gotoxy(y,2);writeln(kata);
             j:=i-1;gotoxy(x,8+j);write(grs);
             gotoxy(x,8+j+1);write('Total Belanja :');

             gotoxy(x+53,8+j+1);write(Total_Harga;10:2);
             gotoxy(x,8+j+2);
             write('Discount :')gotoxy(x+53,8+j+2);write(disc;10;2);
             gotoxy(x,8+j+3);write(grs);
             gotoxy(x,8+j+4);write('Total Bayar setelah discount :');
             Total_Bayar:=Total_Harga-disc;
             gotoxy(x+53,8+j+4);write(Total_Bayar:10:2);
             gotoxy(x,8+j+5);write('Uang diBayar');
             gotoxy(x+53,8+j+5);readln(Uang);
             gotoxy(x+53,8+j+5)writeln(Uang:10:2);gotoxy(x,8+j+6);
             Writw(grs);gotoxy(x,8+j+7);
             write('UangKembali');gotoxy(x+53,8+j+7);
             write(Uang-Total_Bayar:10:2);
      end.