program Timhaiso; uses crt; var n,k,q,r : integer; begin clrscr; assign(input,'INPUT.INP'); assign(output,'OUTPUT.OUT'); reset(input); rewrite(output); read(input,n,k); for r:=0 to k-1 do for q:=1 to n-1 do if q=(n-r)/k then write(output,q,r:2); close(input); close(output); readln end.
