Conversión de medidad con dos decimales

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
metros:=1/1000;
writeln('el resultado',kilometros:5:2);
writeln('ingrese metros');
readln(metros);
metros:=2/1000;
writeln('el resultado',millas:5:2);
writeln('ingrese metros');
readln(metros);
metros:=3/1000;
writeln('el resultado',yardas:5:2);
end.