program fibonacii;
uses crt;
var
        v,v1,v2:string;
        n,i,poz,va,vb:integer;
        a:array[1..100]of integer;

procedure concatenare(a,b,c:string);
begin
c:=b+a;
v2:=c;
end;

procedure decateori;
begin
for i:=1 to length(v) do begin
if (v[i]='a') then va:=va+1;
if (v[i]='b') then vb:=vb+1;
end;
end;

function dublare(z:string;j:integer):boolean;
var sw:boolean;
begin
sw:=false;
if z=v[j+1] then sw:=true;
dublare:=sw;
end;


begin
clrscr;
writeln('Dati sirurile initiale');
readln(v);readln(v1);
writeln('Introduceti n');readln(n);
for i:=1 to n-1 do begin
concatenare(v,v1,v2);
v:=v1;
v1:=v2;
end;
writeln(v);
for i:=1 to n do a[i]:=0;
for i:=1 to length(v) do
if dublare(v[i],i) then a[i]:=1;
writeln;
for i:=1 to length(v) do
if a[i]=1 then writeln('poz',i);
writeln('Dati pozitia pe care doriti litera');readln(poz);
writeln('Valoare:',v[poz]);
va:=0;
vb:=0;
decateori;
writeln;
writeln('Sirul a se gaseste de ',va);
writeln('Sirul b se gaseste de ',vb);


end.