program tietkiem;
uses crt;
var n, i: byte;
x, TK: integer;
begin
clrscr;
write('Nhap so ngay gui tiet kiem la:'); readln(n);
x:= 2000; TK:= 0;
for i := 1 to n do TK:= TK + (x + 1000*(i-1));
writeln('Sau ', n,' ngay ong tiet kiem cua be Ha co ', TK, ' dong');
readln
end.