посчитайте плииииииисссс​

Pascal:

var L:real;

begin

readln(L);

writeln('КМ: ', L/1000000:0:2);

writeln('М: ', L/1000:0:2);

writeln('СМ: ', L/10:0:2);

writeln('ММ: ', L);

end.