program DepositionCalculation;
uses crt;
var Summa:real;
    i, Years:integer;
const Stavka=6.5;
begin
clrscr;
writeln('Enter the summ of your deposit');
readln(Summa);
writeln('enter the time of your deposit');
readln(Years);
  for i:=1 to Years do
  begin
    Summa:=Summa+Summa*Stavka/100;
  end;
writeln('The summ, which you can get=', Summa:2:2);
readln;
end.