сделать задачку в паскале Месячная выплата m по займу в s рублей на n лет под процент p вычисляется по формуле:
m=(s*r*(1+r) в n степени / (12*((1+r) в n степени -1)), где r=p/100
Необходимо рассчитать месячную выплату по займу и прибыль банка.
Выражение exp(In(1+r)*n) вычисляет (1+r) в n степени.
Выражение trunc(100*m+0.5)/100 выполняет округление до копейки.
Данные для самопроверки:
Величина заема: 200000
Процент: 14.5
Количество лет: 6
Месячная выплата равна: 4344.8
Прибыль банка: 112825.5

2) Правильный треугольник.

Если бы задание было
Повтори 6 [Направо 60 Вперед 20]
тогда был бы ответ (1).

В данном случае черепашка:

первый повтор -
повернёт на 60°
пройдёт 20
повернёт на 60°

второй повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20
повернёт на 60°

третий повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, из которой черепашка отправилась в путь
повернёт на 60°

четвёртый повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, в которой была черепашка после того, как шагов в первый раз!
повернёт на 60°

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.