var i : Integer;

for i := 1 to 10 do begin
   Print(i);
   if i mod 5 = 0 then begin
      PrintLn('');
      continue;
   end;
   Print(', ');
end;