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

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