Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K - Pascal
Формулировка задачи:
помогите с задачей :'(
Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K(K вводится с клавиатуры).
Вот что у меня не получилось, но она не запускается(((В чем ошибка?
program zadacha;
var
i,j:integer;
c,k,s:real;
begin
writeln('Введите значение k');
readln(k);
for i:=100 to 300
do begin
s:=0;
for j:=1 to 300
do begin
if (i mod j)=0 then begin
c:=j;
s:=s+j;
end;
if s=k then writeln(i);
end;
end;
readln;
end.Решение задачи: «Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K»
textual
Листинг программы
c,k,s:Longint