Даны целые числа р и q. Получить все делители числа q, взаимно простые c г.

[Владан]

Даны целые числа р и q. Получить все делители числа q, взаимно простые c г.

Program Project324;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var A: array [1..1000] of integer; // массив простых чисел
    B: array [1..1000] of integer; // массив всех делителей числа q
    c,k,p,q,i,n: integer;
function Kot(x,y:integer):integer;
    begin
      Kot:=x mod y;
    end;
begin
  writeln('Введите количество использованных простых чисел');
  readln(n);              //простых чисел должно быть побольше
  writeln('Заполните массив простых чисел');
  for i:=1 to n do readln(A[i]);
  Writeln('Введите целые числа q и p');
  readln(q,p);
  k:=1;
  for i:=1 to n do
    begin
     B[k]:=1;
     c:=q;
     while Kot(c,A[i])=0 do
         begin
           B[k]:=B[k]*A[i];
           k:=k+1;
           c:=c/A[i];
         end;
    end;
  for i:=1 to k do
   if Kot(p,B[i])<>0 then writeln(B[i]);
readln;
end.

[Error] Project324.dpr(29): Incompatible types: 'Integer' and 'Extended'



Не могу исправить ошибку

[Poma][a]

c:=c/A[i];

c := c div A[i] - частное от деления нацело.
Если Вы хотите, чтобы 5 / 2 = 2.5, а не 2. То меняйте тип c меняйте с Integer на Real (или Double)

[Владан]

Сообщение от Poma][a

c := c div A[i] - частное от деления нацело.
Если Вы хотите, чтобы 5 / 2 = 2.5, а не 2. То меняйте тип c меняйте с Integer на Real (или Double)

спасибо!