Используя рекурсивную функцию, вычислить ai-ый элемент
последовательности:

.......(1, если i=0
ai= {
.......(a(i-1)*i+1/i, если i>0

a(i-1) - это типо степень, только в нижней части a
Задача вроде по объему небольшая
Вот шапку написал (может неправильно - не знаю)
program qq;
var a : integer; { исходное значение }
function pan(i:integer):integer;
begin
if (i=0) then pan:=1
else pan:=pan????????????????????????
end;
begin
write('Введите нужное значение a ');
readln(a);
writeln('Элемент последовательности ', a,' равен ', pan(a))
end.
Там где вопросики не знаю что писать... Подскажите!

А припомни, что такое рекурсия - может и ответ всплывёт.
Часто в примерах рекурсии приводят факториал

function F(i: integer): longint;
begin
  if i=0 then F:= 1 else F:= i*F(i-1)
end;

У тебя - что-то подобное.