const
 maxn = 1000;
var
 n,m,k,l,i:longint;
 a:array [1..maxn] of longint;
begin
 write('Vvedite chslo vershin: ');
 readln(n);
 write('Vvedite chslo reber: ');
 readln(m);
 writeln('Vvedite ', m, 'par chisel - rebra');
 for i:=1 to n do
  a[i] := 0;
 for i:=1 to m do begin
  read(k,l);
  inc(a[k]);
  inc(a[l]);
 end;
 for i:=1 to n do
  writeln('Stepen ver nomer-', i,'=', a[i]);
 readln;
 readln;
end.