Ответ:

• program ceff0a25;
• var a:Integer;
• begin
• Write('Введите км: = ');
• Read(a);
• Writeln(a,' км - ', a*1000,' м');
• Writeln(a,' км - ', a*10000,' дм');
• Writeln(a,' км - ', a*100000,' см');
• end.

Объяснение: