Contoh Program Menghitung Belanjaan (beserta diskon) dalam Pascal

Program Total_Belanja;
uses wincrt;
var
a,b,c,d,e,f:integer;
ha,hasil:real;
begin
     write('Jumlah pulpen: ');
     readln(a);
     write('Jumlah pensil: ');
     readln(b);
     write('Jumlah penghapus: ');
     readln(c);
     write('Jumlah buku tulis: ');
     readln(d);
     write('Jumlah penggaris: ');
     readln(e);
     write('Jumlah tipex: ');
     readln(f);

     ha:=(a*2500)+(b*1000)+(c*500)+(d*3000)+(e*4000)+(f*5000);

     if ha>500000
     then hasil:=ha -(0.1*ha)
     else hasil:=ha;
     write('Total Belanja: Rp ',hasil:2:0);
     readln;
end.