Contoh Skrip Pemrograman membuat kasir dengan Turbo Pascal WIndows

Dalam membuat sebuah program Pascal tentunya memerlukan script yang berbeda dengan program yang lain. Kali ini Saya akam Share suatu program Kasir dengan Pascal.
Berikut Contoh Scriptnya:
Program Bengkel;
uses wincrt;
var
Ban,cat,oli,bensin,knalpot,a,b,c,d,e,jumlah,bayar,kembali:longint;
begin
writeln('Program Jual-Beli Di Bengkel');
writeln('Bengkel Sumber');
writeln('Jalan Letjend suprapto');
writeln('089661725698');
writeln('__________________________________');
Ban                     :=90000;
cat                     :=20000;
oli                     :=75000;
bensin                  :=8000 ;
knalpot                 :=400000;
writeln('Daftar Harga:');
writeln('Ban                     :90000');
writeln('cat                     :20000');
writeln('oli                     :75000');
writeln('bensin                  :8000');
writeln('knalpot                 :400000');
writeln('__________________________________');
writeln('pembelian:');
write('Ban:');read(a);
write('cat:');read(b);
write('oli:');read(c);
write('bensin:');read(d);
write('knalpot:');read(e);
jumlah:=((Ban*a)+(cat*b)+(oli*c)+(bensin*d)+(knalpot*e));
writeln('Jumlah Bayar:',jumlah);
write('Uang Bayar:');readln(bayar);
writeln('uang kembali:',bayar-jumlah);
end.

Semoga Bermanfaat