[megaloman]

Код:

@Echo Off
cls
SetLocal EnableExtensions EnableDelayedExpansion

FOR /L %%a IN (1,1,200) DO Set /A b=%%a+4-((%%a-1)/3)*3 & Echo %%a !b!

pause

Либо

Код:

@Echo Off
cls

FOR /L %%a IN (1,1,200) DO Call :A_to_B %%a

pause
GoTo :Eof

:A_to_B
      Set /A a=%1
      Set /A b=%a%+4-((%a%-1)/3)*3
      Echo %a% %b%
GoTo :Eof