Пожалуйста, помогите решить задачу в Паскаль.

program...
uses CRT;
var ar:array [1..255] of byte;
k,i,a,b:integer;
begin
writeln('vvedite razmernost massiva');
readln(k);
wrireln('vvedite a,b');
read(a,b);
ar[1]:=a;
ar[2]:=b;
for i:=3 to k do ar [ i ]:= ar [ i -1]*ar [ i -2];
for i:=1 to k do writeln('ar [', i ,' ] =', ar [ i ]);
readkey;
end.