ответ: Вот
Объяснение:
Программа для фильтрования мусора, например. Думаю было бы круто, имхо сейчас очень остро стоит вопрос об загрязнении окружающей среды. В программе была библиотека\каталог всевозможных веществ\предметов и тд, где можно посмотреть всю инфу о том, как и куда выбрасывать, какой вред несет, время разложения. +плюшки по типу: выбросил 4 пластиковые бутылки, получил виртуальную валюту, какую можно как-то использовать локально, в городе.(это же городская проблема, власти это решить+тема годная)
a: Array[1..1000000] of Integer;
begin
ReadLn(n, k);
for i:=1 to n do a[i]:=i;
sum:=0;
for i:=1 to n do
if a[i] mod k = 0 then
sum:=sum+a[i];
WriteLn(sum);
end.