Gửi tiết kiệm không kì hạn.

PROGRAM CT64;
USES crt;
VAR A,B:REAL;
BEGIN
clrscr;
Writeln('Gui tiet kiem - khong ki han ');
Write('Nhap A dong gui tiet kiem: '); Readln(A);
Write('Nhap B dong muon co khi rut het tien: '); Readln(B);
IF B<A THEN Writeln('Rut khi nao cung duoc ') ELSE
Writeln('So thang can de co duoc so tien: ',(B-A)/(0.3*A/100):12:0);
Readln
END.

Download: http://www.mediafire.com/?tknn0u0gvhbx2ye