program xyz;
var Sotien, x : Longint; 
begin
 cuoc:=0.005;
 write('Ban hay nhap so dung luong su dung: '); readln(x);
 Sotien:= ((0.005*x)-200)*25;
 write('So tien phai tra hang thang la: ',Sotien,'đ);
 readln;
end.  
P/s: E mới học lớp 9 nên chỉ có thể viết như vậy :v Nếu sai thì đừng trách e ahihi