Viết chương trình tính tiền mua bút , số lượng là 30 cây bút và giá mỗi cây là 3 ngàn

uses crt;

  var gia1cay, sluong, thanhtien: integer;

begin

  clrscr;

  gia1cay:=3;

  sluong:=30;

  thanhtien:=gia1cay*sluong;

  writeln(‘Tien mua but het: ‘, thanhtien, ‘(ngan)’);

  readln

end.