с системой счисления до 14:00 надо успеть

третье, там где пять

5> 4 и не 5> =6

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

1 см = 0,01 м

поэтому длину в см делим на 100 и получаем длину в м. и записываете целое число без остатка.