Tien lai

uses crt;
var von,thang,lai:longint;
    tong:real;
const laisuat=0.015;
begin
    clrscr;
    write('Nhap so tien ban dau: '); readln(von);
    write('Nhap so tien lai: ');readln(lai);
    tong:=von; thang:=0;
    while tong<lai do
        begin
            tong:=tong+(tong*laisuat);
            thang:=thang+1;
        end;
    write('Sau ',thang,' thang tu ',von,' len ',lai);
    readln;
end.