Count

const fn='count.inp';
      gn='count.out';
type count=record
       x:integer;
       end;
var f,g:text; m:array[0..1] of count

procedure doc;
var i:integer;
begin
     assign(f);
     reset(f);
     readln(f,n);
     for i:=1 to n do
         read(f,m[i].x);
     close(f);
     end;
function xuly(x:count):real;
var a:integer;
begin
     x:=1;
     a:=0;
     for i:=1 to length(st) do
     if x=[st] then a:=(i*(i-1))+1;
end;
begin
     doc;
     xuly;
end.