Программы для pascal, решите 1 и 5 пожалуйста

Question

Программы для pascal, решите 1 и 5 пожалуйста

---

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var s := 0.0;
  for var i := 5 to 25 do
    s := s + 1 / i;
  writeln(s);
end.

begin
  var productivity := 20.0;
  var year := 0;
  repeat
    year += 2;
    productivity *= (1 + 0.05)
  until productivity >= 25;
  writeln(year);
end.