Напишите программу, которая переводит переданное ей неотрицательное целое число в четырёхзначный шестнадцатеричный код, сохранив лидирующие нули. используйте процедуру. входные данные входная строка содержит неотрицательное целое число n ( 0 ≤ n < 16 4 ). выходные данные программа должна вывести четырёхзначный шестнадцатеричный код переданного её числа, сохранив лидирующие нули. используйте прописные латинские буквы.

Программа: var n: integer; s: string; procedure hex(a: integer; var h: string); var i,m: integer; s1,s2: string; begin s2: ='abcdef'; h: =''; for i: =1 to 4 do   begin   m: =a mod 16;   case m of   0..9   : str(m,s1);   10..15 : s1: =s2[m-9];   end;   h: =s1+h;   a: =a div 16;   end; end; begin write('n = '); readln(n); hex(n,s); writeln(n,'(10) = ',s,'(16)'); end. пример: n = 4095 4095(10) = 0fff(16)

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.