Задача "внос на счет под 10% годовых"

[Ya_tolko_uchus]

не понимаю что среда от меня просит в строке writeln последней
var
Vklad, dopol: real;
a,b,c,d,e,f,g,h,i,j,k,l,m:real;


begin
write('Skolko vu vosite na svoy scet? ');
readln(a);
write('Skolko vu vnosite dopolnitelno kazhduy mesyc ? ');
readln(b);
a:= vklad * 1.1;
b:= (vklad + dopol)* 1.1;
c:= (vklad + (dopol*2))* 1.1;
d:= (vklad + (dopol*3))* 1.1;
e:= (vklad + (dopol*4))* 1.1;
f:= (vklad + (dopol*5))* 1.1;
g:= (vklad + (dopol*6))* 1.1;
h:= (vklad + (dopol*7))* 1.1;
i:= (vklad + (dopol*8))* 1.1;
j:= (vklad + (dopol*9))* 1.1;
k:= (vklad + (dopol*10))* 1.1;
l:= (vklad + (dopol*11))* 1.1;
m:= (vklad + (dopol*12))* 1.1;

writeln('Statistika scheta po mesyacam v RUB.' a,b,c);
readln;
end.


кстати если кто нибудь поможет сделать через цикл а не через мозготрепку как я , буду очень признателен

[GetMax]

Как то так

var
  Vklad, dopol,Schet: real;
  i:Byte;
Begin
  write('Skolko vu vosite na svoy scet? ');
  readln(Vklad);
  write('Skolko vu vnosite dopolnitelno kazhduy mesyc ? ');
  readln(Dopol);
  Writeln;
  For i:=1 to 12 do
  Begin
    Schet:=Schet+(Vklad+Dopol*i)*1.1;
    Writeln('Schet v ',i,' mesyac =  ',Schet:4:2)
  End;
  Readln
End.

[Ya_tolko_uchus]

Спасибо братуха, ваще гуд
завтра мож зачет по ООП сдам ))))

[Ya_tolko_uchus]

формула ток походу немного неправильная
Schet:=schet+(vklad+Dopol*i)*1.1;
Writeln('Schet v ',i,' mesyac = ',Schet:4:2)

слишком большие суммы для 10% годовых выходят

он в каждом цикле вклад заного пребавляет

[GetMax]

он в каждом цикле вклад заного пребавляет

Ну исключите прибавление

Schet:=(vklad+Dopol*i)*1.1;
Writeln('Schet v ',i,' mesyac = ',Schet:4:2)

[Ya_tolko_uchus]

вот теперь точно респект тебе !!!! я ваще рад))) теперь мне предстоит через форму тоже самое делать