Question

написать программу на паскале:
1)для вычисления среднего арифметической переменных х1 и х2
2) для уменьшения на единицу значения переменной k

Answer 1

1)
var x1,x2:integer;
begin
read(x1,x2);
writeln((x1+x2)/2);
end.
2)
var k:integer;
begin
read(k);
k:=k-1;
end.