Program Tien_cuoc;
Uses crt;
Var a,b,c,tiencuoc:real;
Begin
clrscr;
Write('Nhap so thue bao hang thang:'); Readln(a);
Write('Nhap so tien 1MB:'); Readln(b);
Write('Nhap so MB:'); Readln(c);
tiencuoc:=a+b*c;
Writeln('So tien cuoc su dung la:',tiencuoc);
Readln
End.