program sumexe;
var s:real;
    t,n,i,c, broi:integer;
    suma,r:real;
    begin
    suma:=0.0;
    broi:=0;
    write('t='); read(t);
    write('n='); read(n);
    write('s='); read(s);
    if n>0 then
      for i:=1 to t do
       begin
         for c:=1 to n do
          begin
           write('r=');read(r);
           suma:=suma+sqr(r);
          end;
        if suma<s then
        broi:=broi+1;
      end;
    write('broqt ha reditsite sa',broi);
    readln;
    end.