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.