Сделайте заданиеABSпаскал)Даю 35 баллов

Полагаюсь я верно понял сущность заданий.

Номер 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.