найти ошибку

[sergio11]

program zp;
var t,r,x,sum:real; i:integer;
begin
writeln('Vvedite t,r');
readln(t,r);
for i:=1 to 6 do
begin
x:=r-r*t/100;
sum:=x+x;
end;

writeln(sum:10:0);
readln ;
end.

не могу понять почему один раз только выполняется

[ROMA2PVT]

Да нет выполняется 6 раз.Вот только одно значение будет шесть раз.Нет накопления.r одно значение и t одно.

[sergio11]

я сам уже разобрался! забыл уже как это делается