Помогите пж 49 баллов. Номер 3.

1.

Program n_1;

var a: integer; b:double;

begin

   readln(a);

   b:=(a mod 10 + a div 10)/2;

   writeln(b:0:1);

end.

2.

Program n_2;

var a: integer;

begin

   readln(a);

   a:=a div 10 - a mod 10;

   writeln(a);

end.

3.

Program n_3;

var a, b: integer;

begin

   readln(a);

   b:=a div 1000;

   a:=a - a div 1000 * 1000;

   writeln(b , ' кг ', a, ' г');

end.

4.

Program n_4;

var a: int64;

begin

   readln(a);

   writeln(a div 10000, ' км^2');

end.