program inductie;
uses crt;
var s:array[1..100]of integer;
    i,n:integer;

begin
clrscr;
writeln('Introduceti numarul n:');readln(n);
s[1]:=1;
for i:=2 to n do
s[i]:=i*i-s[i-1];

writeln('Solutia este:');writeln(s[n]);

end.