$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program khach_san;
uses crt;
var ngay: integer; loai: string;
begin
        clrscr;
        repeat
        write('Nhap so ngay thue phong: '); readln(ngay);
        if ngay<=0 then writeln('Vui long nhap lai! ');
        until ngay>0;
        repeat
        write('Nhap loai phong muon thue: '); readln(loai);
        if (loai<>'A') and (loai<>'B') and (loai<>'C') then writeln('Vui long nhap lai!');
        until (loai='A') or (loai='B') or (loai='C');
               begin
                        if (ngay<12) then
                        case loai of
                        'A': write('So tien ma ban phai tra la: ',250000*ngay);
                        'B': write('So tien ma ban phai tra la: ',200000*ngay);
                        'C': write('So tien ma ban phai tra la: ',150000*ngay);
               end;
               begin
                        if (ngay>=13) then
                        case loai of
                       'A': write('So tien ma ban phai tra la: ',250000*ngay*90/100:0:0);
                       'B': write('So tien ma ban phai tra la: ',200000*ngay*92/100:0:0);
                       'C': write('So tien ma ban phai tra la: ',150000*ngay*92/100:0:0);
               end;
readln;
end.

Khi thử nhập vào 1 giá trị, chẳng hạn như khi mình muốn ở 19 ngày trong phòng loại B thì số tiền phải trả sẽ được tính như màn hình trên!