program examen;
var
f:text;
cursant:record
puncte:0..20;
end;
n,m,x:byte;
begin
assign(f,'note.out.txt');
rewrite(f);
writeln('Dati numarul de cursanti: ');readln(n);
writeln('Dati numarul de indicatori: ');readln(m);
for n:=1 to n do begin
writeln('Cursantul ',n,': ');
for m:=1 to m do begin
writeln('Puncte la indicatorul ',m,': ');readln(cursant.puncte);
if cursant.puncte=1 then x:=x+1 else x:=x+0;
end;
writeln(f,'i=',n,' ',x);x:=0;
end;
close(f);
readln;
end.