Спасите! определите значеиие переменной k после выполнения следующего фрагмента программы

Впоследней понадобятся переводные коэффициенты. 1 берковец=10 пудов=400 фунтов=38400 золотников. отсюда: 1 фунт = 38400/400 = 96 золотников 1 пуд = 400/10 = 40 фунтов 1 берковец = 10 пудов №1 var   n: integer;   begin   write('введите двухзначное число: '); read(n);   n: =abs(n); { убираем минус, если он есть }   writeln('среднее арифметическое цифр числа: ',       (n div 10 + n mod 10)/2) end. пример введите двухзначное число: 43 среднее арифметическое цифр числа: 3.5 №2 var   n: integer;   begin   write('введите двухзначное число: '); read(n);   n: =abs(n); { убираем минус, если он есть }   writeln('разность количества десятков и единиц равна ',n div 10 - n mod 10) end. пример введите двухзначное число: 38 разность количества десятков и единиц равна -5 №3 var   a: real;   begin   write('площадь, ар: '); read(a);   writeln('полных кв.км: ',trunc(a/10000)) end. пример площадь, ар: 252123234 полных кв.км: 25212 №4 const   f=96; { фунт }   p=40; { пуд }   b=10; { берковец } var   z: longint;   kb,kp,kf: integer;   begin   write('введите вес в золотниках: '); read(z);   kf: =z div 96;   z: =z mod 96;   kp: =kf div 40;   kf: =kf mod 40;   kb: =kp div 10;   kp: =kp mod 10;   writeln('это составит ',kb,' берковцев, ',kp,' пудов, ',           kf,' фунтов, ',z,' золотников') end. пример введите вес в золотниках: 374252 это составит 9 берковцев, 7 пудов, 18 фунтов, 44 золотников