Uses robot;
Begin
Task('cc13') ;
дайте ответ

Uses robot;

var i,j,k,a,b:integer;

Begin

Task('cc13');

a:=12; b:=10;

for i:=0 to 3 do

begin

for j:=0 to a do right;

a:=a-2;

Down;

for k:=0 to b do left;

b:=b-2;

Paint;

Down;

end;

end.

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.      

1 кбайт

1000 байт

1024 бит

1 байт

1 бит