Даны четыре числа. для каждого числа найти все его делители и подсчитать их количество pascal

Var     a,d,k,i: longint; begin writeln('введите четыре числа'); for i: = 1 to 4 do       begin       read(a);       write('делители числа ',a,': ',a,', ');       d: =a div 2+1;       while d> 0 do             begin             if a mod d = 0 then                   begin                   write(d,', ');                   k: =k+1;                   end;             d: =d-1;             end;       write('кол-во его делителей: ',k);       k: =1;       writeln;       end; end. пример: введите четыре числа 987654321 32767 256 13 делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17 делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8 делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9 делители числа 13: 13, 1, кол-во его делителей: 2

Var   i: integer;   ar: array[1..4]of integer;   procedure divisor(x: integer);   var   d, c: integer;   begin   c : = 1;   if(x < 1) then exit;   write(x, ' = ');   if(x = 1) then begin writeln(1, ' количество делителей: ', 1); exit end;     d : = 2;   while x > 1 do   begin     if(x mod d = 0) then       begin       if(x div d < > 1) then write(d, ' * ')         else write(d, '; ', ' количество делителей: ', c);         x : = x div d;         c : = c + 1;       end     else d : = d + 1;   end;   writeln; end;   begin   writeln('введите четыре числа: ');   for i : = 1 to 4 do read(ar[i]);     writeln;   for i : = 1 to 4 do divisor(ar[i]); end.

#include < iostream>   using namespace std   int main() { int a cout< < " введи число" cin> > a if (a=5) { cout< < "a=5" eiso cout< < "a< > 5"   return 0 }