q198416317

program paspas1;
var
  year:integer;
  sum:real;
  rent:real;
  year_first:integer;
  year_last:integer;
begin
  repeat
    write('проценты в десятичной дроби=');
    readln(rent);
    if rent <0.1 then begin
      write('первый год=');
      readln(year_first);
      write('последний год=');
      readln(year_last);
      write('начальный капитал=');
      readln(sum);
      for year := year_first to year_last do begin
        sum:=sum+(sum+rent);
        writeln('Год: ', year, ' результат: ', sum);
      end;
    end
    else writeln('введите другую дробь');
  until rent<0.1;
end.