ввести первоначальную сумму вклада, ввести ежегодный процент, сколько будет денег на счету через 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.