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

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 км