viết chương trình tính tiền mua bút biết số lượng bút được nhập từ bàn phím và giá mỗi cây là ba ngàn . thông báo kết quả lên màn hình

program bai_tap;

uses crt;

var a,b: integer;

begin

clrscr;

Writeln('so luong but la');readln(a);

b:=a*3000

Writeln('so tien mua but la:',b);

readln;

end.