100);writeln(X);End. Где я ошибся?...

September 2021 0 5 Report

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.
Где я ошибся?