Найти количество делителей натурального числа А, больших К. (А и К вводятся с клавиатуры, K<=A). Код должен быть написан на языке Паскаля (Pascal).

program zz1;

var A, k, i:integer; / / задаем переменные целого типа

begin

write (' введите число A '); / / вводим с клавиатуры заданное число

read (A);

write (' введите число K '); / / вводим с клавиатуры заданное число

read (K);

write (' Делители числа ', A, ' большие за ', k, ': ');

for i:=1 to A do / / организуем цикл, в котором переберем все числа от 1 до n

begin

if A mod i = 0 / / проверяем число на делимость, если заданное число делится без остатка, то

then if i > k then write (i, ' '); / / выводим делитель на экран

end;

end.