Составить программу перевода количества сантиметров в метры и километры. (паскаль)

Var l:integer;
begin
write('Введите длину в см: ');
readln(l);
writeln(l,' см = ',l/100:4,' м = ',l/100/1000:4,' км');
end.

Пример:
Введите длину в см: 25000
25000 см = 2.5e+02 м = 2.5e-01 км