Viết chương trình tính tiền bán hàng trong ngày của cửa hàng tạp hoá biết Giá giấy A4:65.000 Giá bút:15.000 Số lượng giấy bút bán được nhập từ bàn phím

uses crt;
var      g,b : integer;
begin clrscr;
write('Nhap so giay ban duoc :'); readln(g);
write('Nhap so but ban duoc :'); readln(b);
write('Tong tien ban duoc la :',g*65.000+b*15.000);
readln
end.

program oken;
uses crt;
var giay,but,slgiay,slbut: longint;
begin
    clrscr;
    write('Nhap so luong but da ban: '); readln(slbut);
    write('Nhap so luong giay da ban: '); readln(slgiay);
    giay:=45000;
    but:=15000;
    writeln('So tien ban hang: ',(slgiay*giay)+(slbut*but),' dong');
    readln;
end.