Can nang

uses crt;
var bandau,sau,tong:real;
    ngay:integer;
const tangsuat=0.05;
begin
    clrscr;
    write('Nhap khoi luong bna dau: '); readln(bandau);
    write('Nhap khoi luong sau khi tang: ');readln(sau);
    tong:=bandau; ngay:=0;
    while tong < sau do
        begin
            tong:=tong+tangsuat;
            ngay:=ngay+1;
        end;
    write(ngay,' ngay');
    readln;
end.