Conversiones de medidas

program nombre;
uses wincrt;
var
metros,kilometros,millas,yardas:real;
begin
writeln('ingrese metros');
readln(metros);
kilometros:=metros/1000;
writeln('el resultado',kilometros);
writeln('ingrese metros');
readln(metros);
millas:=metros*0.00062137;
writeln('el resultado',millas);
writeln('ingrese metros');
readln(metros);
yardas:=metros*1.0936;
writeln('el resultado',yardas);
end.