Tugas struktur RINCIAN UANG & KEMBALIAN

program kasir_herman;
uses WinCrt;

const
nilai_rupiah:array [1..9] of longint = (200,500,1000,2000,5000,10000,20000,50000,100000);

var
f,g,h,i,Kembalian:integer;
kata,grs,nama :string;
x:byte;

begin

clrscr;
grs:='==================================================================';
kata:='Program kasir';
x:=round ((78-length(kata))/2);
gotoxy(x,2) ;writeln(kata);
x:=round ((78-length(grs))/2);
gotoxy(x,3) ;write(grs);
{-------------------------------------------}

begin
writeln;
write ('Harga : Rp. '); readln (h);
write ('Bayar : Rp. '); readln (f);
Kembalian:=f-h;
writeln('Kembalian : Rp.',Kembalian);
writeln;

g:=f-h;

  for i:=9 downto 0 do
  begin

    if g div nilai_rupiah[i]>0 then
    begin
      writeln(g div nilai_rupiah[i],' lembar uang Rp. ',nilai_rupiah[i]);
      g:=g mod nilai_rupiah[i];
    end;
  end;
 end;
end.








Tampilannya :