9класс. составить программу перевода количества сантиметров в метры и километры. (паскаль) чтобы, например, если ввести 100 см, то выдавалось бы 1 метр и 0,001 километр.

Var
 a:real;
begin 
    write('Write amount in cm: ');  readln(a); 
    writeln('In meters: ',a/100:0:4); 
    writeln('In kilometers: ',a/10000:0:4); 
    readln
end.