Program n1;
var sum,i: integer;
begin
sum:=0;
for i:=1 to 5 do sum:=sum+123*i;
write(sum);
end.
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>
Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}
В левом верхем углу есть закругленная стрелочка, она вернет :) Ну или зажать CTRL + Z