var v,w:array[1..100] of integer;
var f:text;
var car,q,x,e,y,n,i,aux,ini,a,b,k,but:integer;
begin
assign(f,'stalpi.in'); reset(f);
readln(f,n);
for i:=1 to n do
 begin
  x:=x+1;
  y:=x*n-1;
 end;              q:=0;
repeat
 for i:=1 to n do
  begin
   write('v[',i,']='); readln(v[i]);
  end;
 write('k='); readln(k);
 write('a='); readln(a);
 write('b='); readln(b);
 x:=0; e:=0;
 for i:=a to b do
  w[i]:=0;  q:=q+1;
until q=5;
for i:=1 to n do
 begin
  aux:=1;
  car:=aux*but+ini;
  but :=car*ini;
 end;
close(f);
assign(f,'stalpi.out'); rewrite(f);
 write(f,random(100));
close(f);
end.