5v

program ka;
uses crt;
var i,n: integer;
a: array [1..30] of integer;
begin
 writeln ('n'); readln (n);
 a[1]:=1; a[2]:=1;
 for i:=3 to n do
 a[i]:=a[i-1]+a[i-2];
 writeln ('полученный результат') ;
 for i:=1 to n do
 writeln ('a[',i,']=',a[i]);

readkey;
end.