Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-28T21:30:05+00:00

var

  pr, Summ:real;

begin

  write('Введите начальную сумму '); readln(Summ);

  write('Введите процентную ставку '); readln(pr);

  pr := 1 + pr / 100;

  writeln('Через 5 лет у вас на счету будет ', Summ * pr * pr * pr * pr * pr);

end.