¡Preguntas sobre programación Pascal! ¡Convierta el peso en toneladas a kilogramos o gramos!

var n: real;

m: entero;

comenzar

readln(n, m); p> si m=1 entonces writeln(n,'t=',n*1000:0:1,'kg')

si no writeln('n','t=',n*1000000 :0:1,'g');

end.

Es completamente utilizable.