function amebs(has:integer):integer; begin if has<3 then amebs:=1 else amebs:=amebs(has-3)*2; end;
Write('ameb:=',amebs(10));
Яндекс