56
89
90
55
Объяснение:
Var a,b:integer; begin while a*4<65 do begin writeln('кролик: ',a,' гусь: ',(64-a*4) div 2); a:=a+1; end; end.
