РЕШИТЕ ПРОГРАММУ ПАСКАЛЬ ПРОШУУ, 80 БАЛЛОВ
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.
Вводится пользователем: 3