Viết một chương trình Pascal nhập vào số ngày ở lại của một khách hàng trong một khách sạn,tính số tiền phải thanh toán biết: 1 tuần: 500000 đồng 1 ngày: 100000 đồng

program vd;
uses crt;
Var
    n:integer; tien:longint;
Begin
    clrscr;
    write('Nhap so ngay: '); readln(n);
    Tien:=(n div 7)*500000+(n mod 7)*100000;
    write('So tien thanh toan: ',tien,' dong');
    Readln;
end.

#HNgoc

#Chuc_em_hoc_tot

Program hotrotinhoc;

var l,t,n,tien: longint;

begin

readln(n);

if n<7 then write(n*100) else

if n=7 then write(500) else

if n>7 then

begin

l:=n div 7;

t:=n mod 7;

tien:=(l*500)+(t*100);

write(tien);

end;

readln

end.