Напишите программы для решения . используйте операции div и mod: 1) дана масса в граммах. переведите её в килограммы и граммы 2) площадь участка измеряется в арах. найдите кол-во полных км в квадрате.

1)
var
a:integer;
begin
  Readln(a);
  Writeln(a div 1000, 'кг ', a mod 1000, 'гр');
end.

Пример:
1234
1кг 234гр

2)
var
a:integer;
begin
  Readln(a);
  Writeln(a/10000, ' км. кв.');
end.

Пример:
100
0.01 км. кв.