kodingan free pascal anda membayar Rp.10.000 dan kembaliannya ?

program Menu_Warung;
uses wincrt;
var bakso,teh,a,b : longint;
begin
bakso:=7000;
teh:=1500;
write('Beli Bakso berapa : ');
read(a);
write('Beli Teh berapa : ');
read(b);
writeln('Anda membeli sejumlah : ',(Bakso*a)+(teh*b));
writeIn('total pembelian sejumlah:8500');
read(bayar);10000
writeIn('Anda menerima kembalian : 1500',);
end.