Var x,i:real;
Begin
Writeln('vvedite vklad- ',X);
readln(X);
X:=X+(X*10/100);
X:=X+(X*15/100);
For i:=1 to 24 do
X:=X+(X*1/100);
writeln(X);
End.
Где я ошибся?