Program prim_6-

Var a,b:integer-

Begin

— — Write(‘введите расстояние в сантиметрах‘)-

— — Readln(a)-

— — b:=a div 100-

— — Writeln(b,’метров ‘)-

— -Readln

End.