Witam mam tak problem: wyskakuje mi blad 202 czy ten kod jest napisany poprawnie????

zadanie3
Napisz program,ktory bedzie oblicza; wartosc dowolnego ciagu znakow wskazanego wzorem rekurencyjnym
a1=1
a2=2
an=an-1+2n+an-2

oto kod:

uses crt;
var a:integer;
function ciag(n:integer):integer;
begin
if n=1 then
ciag:=1;
if n=2 then
ciag:=2
else
ciag:=ciag(n-1)+2*n+ciag(n-2);
end;
begin
clrscr;
writeln('podaj liczbe');
readln(a);
writeln('silnia liczby',a, ' wynosi',' ',ciag(a));
readln;
end.



Zadnie 4
Napisz funkcje i wywolaj ja w programie glownym obliczajaca rekurencyjnie wartosc potegi 2 do n gdzie n jest dowolna liczba calkowita wieksza od 0

oto kod:

uses crt;
var a:integer;
function ciag(n:integer):integer;
begin
if n=1 then
ciag:=1;
if n=2 then
ciag:=2
else
ciag:=ciag(n-1)+2*n+ciag(n-2);
end;
begin
clrscr;
writeln('podaj liczbe');
readln(a);
writeln('silnia liczby',a, ' wynosi',' ',ciag(a));
readln;
end.

[ Dodano: 9 Kwiecień 2010, 18:42 ]
Oto kod do zadania 4


uses crt;
var a:integer;
{**funkcja rekurencyjna*****}
function potega(n:real):real;


begin
if n=0 then potega:=1 else
potega:=potega(n-1)+2*n+potega(n-2);
end;
{***koniec funkcji rekurencyjnej*****}
begin clrscr;
writeln('Podaj liczbe');
readln(a);
writeln('Potega liczby ',' ',a,' wynosi',' ',potega(a):3:1);
readln;
end.