Угусей и кроликов вместе n лап (n - четное). сколько может быть гусей и кроликов (вывести все возможные варианты)?

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;
end.