Ввести первоначальную сумму вклада, ввести ежегодный процент, сколько будет денег на счету через 10 лет работа на программе паскаль

Var  f, x: real; //f=ежегодный процент i :integer; //x=первоначальная сумма вклада
begin  //Ввод  writeln ('первоначальная сумма вклада');  readln (x);     writeln ('ежегодный процент');  readln (f);
 //решениеfor i :=1 to n do  begin    x:=x + (x/100*f);  end;
  //вывод writeln ('x = ', x);  end.