uses crt;
var n,s,dongia,sl:real;
begin
clrscr;
write('Nhap don gia: ');readln(dongia);
write('Nhap so luong: ');readln(sl);
n:=dongia*sl;
if n<=1000000 then s:=n/100*95 else begin
s:=1000000/100*95;
n:=n-1000000;
s:=s+(n/100*90);
end;
writeln('Tong tien: ',s:1:0);
readln
end.