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

uses crt;
 
var
  i:integer;
  a,b:real;
  z:array[1..10] of real;
  t:real;
 
begin
  clrscr;
  write('Stependia = '); readln(a);
  write('Zatrati = '); readln(b);
  writeln;
  t:=0;
  for i:=1 to 10 do begin
    if b-a<=0 then z[i]:=0 else z[i]:=b-a;
    t:=t+z[i];
    b:=b*1.03;
  end;
 
  for i:=1 to 10 do writeln('mesyac ',i:2,' - neobhodimo eshe ',z[i]:4:2,' p.');
  writeln;
  write('Vsego neobhodimo: ');
  if t<=0 then write('0 p.') else write(t:8:2,' p.');
 
  readkey;
end.