Tính Lãi Suất

Program Tinh_Lai_Suat;
Uses crt;
Var tiengui, tiennhan, lai : Real;
    thang: Byte;
Begin
	Clrscr;
	Write('So tien gui : '); Readln(tiengui);
	Write('So tien muon nhan : '); Readln(tiennhan);
	thang:= 1;
	Repeat
    lai:=tiengui*0.8/100;
    tiengui:=tiengui+ lai;
    inc(thang);
    Until tiengui>=tiennhan;
    Write('So thang can cho la ',thang);
    Readln
End