Ежемесячная стипендия студента составляет Stip руб., а расходы на проживание превышают стипендию и составляют D рублей в месяц. Рост цен ежемесячно увеличивает расходы на р процентов. Составьте программу расчета суммы денег, которую необходимо единовременно попросить у родителей, чтобы мб прожить уч. Год (10 месяцев), используя только эти деньги и стипендию. — Pascal(Паскаль)

uses ctr;
var
rashod, p,  Stip: real;
i : integer;
d : real;
result : real;
begin
clrscr;
rashod:=0;
writeln('Введите расход на проживание ');
readln(d);
writeln('Введите увелечение расходов(%)');
readln(p);
writeln('Введите стипендию (Stip) ');
readln(Stip);
for i:= 1 to 10 do
 begin
  rashod := rashod + d;
  d:=d+(d/(100*p));
 end;
rezult := rashod-Stip*10;
WriteLn('Ответ:', rezult:5:5);
readkey;
END.