var s,summ:integer;
begin
writeln("До какого числа считать");
readln(s);
for i:=1 to s do
if i mod 5=0 then
summ:=summ+i;
writeln(summ);
end.
Точно, конечно, ответить сложно. Но что-то мне подсказывает, что всё же олень. Олень.
Исполнитель Чертежник и Исполнитель Робот
Чесно говоря не уверен но от 10 до 25 мигабайт