Задачи из файла выполнить в паскаль

var

weight : real;

begin

readln(weight);

writeln('Масса в граммах:', weight * 1000:5:3);

writeln('Масса в тоннах:', weight / 1000:5:3);

end.