tin học 8 BÀI THỰC HÀNH:một cửa hàng mt tháng đầu tiên doanh thu 200000000 bắt đầu tháng 2 cứ tháng sau doanh thu lại tăng 5% so với tháng trước tính doanh thu của cửa hàng sau 1 năm EM CẦN GẤP Ạ HUHU

program Bai_tap_1;
uses crt;
var tien,lai: real;
    i: byte;
begin
        clrscr;
        tien:=200000000; lai:=5/100;
        for i:=2 to 12 do
                tien:=tien+(tien*lai);
        writeln('Doanh thu cua hang sau 1 nam: ',tien:0:0);
        readln;
end.

program oken;
uses crt;
var tien,lai: real;
    i: byte;
begin
        clrscr;
        tien:=200000000; lai:=5/100;
        for i:=2 to 12 do
                tien:=tien+(tien*lai);
        writeln('Doang thu cua hang sau 1 nam: ',tien:0:0);
        readln;
end.