Помогите с 1 вариантом ** языке Паскаль (циклический алгоритм)

Question

Помогите с 1 вариантом на языке Паскаль (циклический алгоритм)

---

Answer 1

//Pascal
var  N, k: byte; a: real;
begin
N := 54;
for k := 1 to N do
  if k >= 16 then  a := a + exp(sqrt(k))
  else a := a + ln(k*k+5);
writeln('a = ', a);   
end.