Устройство для ввода неподвижных изображений данных в компьютере​

234567891011121314151617181920212223procedure CountingSort(var X: array of integer; min, max: integer);var counter: array[0..100000] of integer; i, j, index: Integer;begin // для всех элементов массива // указываем значение ноль for i:=0 to high(counter)  do tmpX[i]:=0; for i:=min to max  do counter[ar[i]]:=counter[ar[i]]+1; // устанавливаем значение // в правильную позицию index:=min; for i:=min to high(counter)-1 do  begin   for j:=0 to counter[i]-1 do    begin     ar[index]:=i;     index:=index+1;    end;  end;end;

Var a,b,c,d,i,f,g,h,n:integer;
begin
writeln('введите число');
readln(a);
g:=0;
c:=0;
d:=0;
i:=0;
f:=0;
writeln('введите число для сравнения');
readln(h);
for b:=a downto 1 do begin
if a mod b = 0 then writeln('его делитель ==>',b);
if a mod b = 0 then c:=b+c;
if a mod b = 0 then if b mod 2 = 0 then d:=d+b;
if a mod b = 0 then if b mod 2 <> 0 then i:=i+1;
if a mod b = 0 then f:=f+1; 
if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i
f a mod b = 0 then if b>h then n:=n+1; 
end;
writeln('сумма его делителей ==>',c);
writeln('сумма его чётных делителей ==>',d); 
writeln('количество нечётных делителей ==>',i); 
writeln('количество чётных делителей ==>',g);
writeln('количество делителей ==>',f); 
writeln('количество делителей больших b ==>',n); 
end.