Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>
If M<=15 then M:=2*Sqrt(N) else M:=N-3;
См. приложения.
Объяснения ясны из таблиц.