Дана масса в граммах. Переведите её в килограммы и граммы с программ PascalABC.Тема Реализация алгоритмов работы с целочисленными данными.

Program Test; 

Var MasG, MasKg: real; 

Begin 

Write('Введите массу (в граммах): '); 

Readln(MasG); 

Writeln(); 

Writeln(MasG, ' грамм = ', MasG, ' грамм'); 

MasKg := MasG / 1000; 

Writeln(MasG, ' грамм = ', MasKg, ' килограмм');