uses crt;

var a, b, t, c  :  real;

begin

clrscr;

write('nhap so quyen tap :');readln(a);

write('nhap so luong but bi :');readln(b);

t := a * 8000 + b * 3000;

c := (t/10000) * 1000 ;

writeln('so tien phai tra :', (t - c):3:0);

readln

end.

var a,b,tong tien : integer;

begin

          write('nhap vao so tien mua but');read(a);

          write ('nhap vao so tien mua sach') read(b);

tong tien :=0 ;

tong tien:=a+b;

if tong tien >=10 000 then

begin

write ('ban duoc tru 1000 dong') 

tong tien:= tong tien-1000;

end;

if tong tien < 10 000 then write (tong tien);

readln

end.