C клавиатуры вводится расстояние в сантиметрах. Найти и вывести число полных метров в нем.

Программа запрашивает длину в сантиметрах и возвращает число целых метров. Действие повторяется до тех пор, пока не будет введено значение 0.

program cm_m;

var n, m: integer;

begin

m:=1;

while m>0 do

begin

writeln ('Введите длину в сантиметрах');

readln (m);

n : = m div 100;

writeln ('Целое число метров - ', n);

if m = 0 then writeln ('Сеанс окончен');

writeln;

end

end.