Ответ:
Цикл while выполняется пока i<=10, когда он станет больше 10, т.е например 11, то цикл завершится. Т.е цикл пройдет 11 раз, перед тем как перестанет выполнятся условие.
И в конце концов S = 2
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.
При использовании палитры из 65536 цветов для хранения одного пикселя требуется log(2)65536 = 16 бит. Память для хранения изображения: 78*78*16 бит = 97344 бит