Дано расстояние в километрах,вывести сколько это метров и сантиметров Pascal

var  k: real;begin  writeln('Расстояние в километрах ');  readln(k);  writeln('Расстояние в метрах ');  writeln(k * 1000);  writeln('Расстояние в сантиметрах ');  writeln(k * 100000);end.