Маленький Вася пошел в зоопарк. Там на пруду он увидел одну цаплю, несколько гусей и вдвое больше овец. Всего Вася насчитал 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.