Как заработать ранг в аниксарте? ​

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

var x,x1: integer;

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[3]+s[2]+s[1]);

  writeln(x-x1);

end.

1-ый способ: 1 взрослый и 1 мальчик перебираются на другой берег реки, потом взрослый возвращается назад, и за тем он и второй мальчик перебираются на другой берег реки, потом один из мальчиков   возвращается за вторым взрослым.

2-ой способ: или два мальчика сидят на плоту, а двое взрослых держатся за плот и перебираются на другой берег реки.