Маленький вася пошел в зоопарк.там на пруду он увидел одну цаплю,несколько гусей и вдвое больше овец.всего вася насчитал n ног. васе определить,сколько гусей и овец на пруду

Написано на Pascal:

Program Lake;
Var a, b, n: Integer;
Begin
WriteLn('n = ');
ReadLn(n);
If n < 2 Then
WriteLn('Error!')
Else
Begin
n := n - 2;
a := n div 3;
b := a * 2;
WriteLn('На пруду ',a , ' гусей и ',b , ' овец.');
End;
ReadLn;
End.