Metros Para Km PASCAL

program metros;
uses crt;
var
m:integer;
metro,km:real;
BEGIN
    Write('Informe Metro: ');
    readln(m);
        km:= m / 1000;
        metro:= m mod 1000;
    Writeln(trunc(km),' Km e ',trunc(metro),' Metros');
END.