Program Tien_Dien;
uses crt;
var kw,t:longint;
begin;
clrscr;
writeln('nhap so kw dien');readln(kw);
if (kw>0) and (kw<50) then t:=kw*1000;
if (kw>=51) and (kw<=100) then t:=100*1000+(kw-50)*200;
if (kw>=101) and (kw<=200) then t:=50*1000+50*200+(kw-100)*300;
if (kw>=251) then t:=50*1000+50*200+100*300+(kw-200)*5000;
writeln('so tien phai tra la ',t,' dong');
readln
end.