Сравните меню двух разных табличных сред ​

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.

1 см = 0,01 м

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

0011 = 3

1001   =9

0011 =3

1100 = c

1111 = f

ответ:   393cf

m: array [3..31] of real;

вроде не ошибаюсь..