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

Var
  k: real;

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