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

//Pascalvar  N, k: byte; a: real;beginN := 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.