Решите задачу по программированию (паскаль авс)

var col_r, col_f:integer; begin writeln('количество кроликов       количество фазанов'); for col_r:=0 to 16 do begin writeln(col_r,'-------------------------',(64- ( col_r*4) ) div 2 ); {чёрточки нужны чтоб было похоже на таблицу} end; end. количество кроликов       количество фазанов 0-------------------------32 1-------------------------30 2-------------------------28 3-------------------------26 4-------------------------24 5-------------------------22 6-------------------------20 7-------------------------18 8-------------------------16 9-------------------------14 10-------------------------12 11-------------------------10 12-------------------------8 13-------------------------6 14-------------------------4 15-------------------------2 16-------------------------0