Ответ:

16

Объяснение:

p(1)=1

p(2)=1+3=4

p(3)=4+3=7

p(4)=7+3=10

p(5)=10+3=13

p(6)=13+3=16

var k:integer;

function p(n:integer):integer;

begin

 if n=1 then p:=1 else

   p:=p(n-1)+3;

   end;

   begin

     read(k);

     writeln(p(k));

   end.