Объяснение:
program pr1;
var L:Integer;// ввод пользователя
M:Integer;//полных метров
begin
write('Enter L: ');
readln(L);
M:=L div 100;
writeln(M);
readln;
end.
//Программа на Delphi/Pascal
