var
  a: array [1..9, 1..6] of integer;
  i, j: byte;
  p: Int64;
begin
  for i := 1 to 9 do
  begin
    p := 0;
    for j := 1 to 5 do
    begin
      a[i, j] := random(15, 99);
      write(a[i, j]:3);
      p += 1;
    end;
    a[i, 6] := p;
    writeln(' ', p);
  end;
end.