Надеюсь я правильно понял суть заданий.
Номер 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.