Дано расстояние в сантиметрах. Найти число полных метров в нем- Pascal(Паскаль)

Var
  santimenter:word;
  menter:word;
BEGIN
  readln(santimenter);
  menter:=trunc(santimenter/100);
  writeln(menter);
  readln
END.