замена

[Ия Ильина]

program qq;
VAR
A, B, K, i, c: integer;
BEGIN
WriteLn('Число делителей больше К из промежутка от А до В');
Write('Введите число A: '); ReadLn(A);
Write('Введите число B: '); ReadLn(B);
Write('Введите минимальное число делителей K: '); ReadLn(K);
if A > B then begin
WriteLn('Неправильный ввод: A > B');
end;
while A <= B do begin
c := 0;
for i:= 1 to A do
begin
if A mod i = 0 then inc(c);
end;
if c > K then WriteLn(A,' - Число делителей: ',c);
A := A + 1;
end;
if c = 0 then WriteLn('Таких чисел нет');
WriteLn;
END.




if A mod i = 0 then inc(c);

чем можно заменить inc(c) ?

[Silverstone]

этим: c:=c+1

[Ия Ильина]

спасибо огромное!