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