var l,m:integer;
begin
write('Введите расстояние в см');
readln(l);
m:=l div 100;
write('Расстояние ',l,' метры ',m);
readln;
end.
var l,m:integer;
begin
write('Введите расстояние в см');
readln(l);
m:=l div 100;
write('Расстояние ',l,' метры ',m);
readln;
end.