1Гб=1024Мб, 1024 умножить на 16, и разделить на 700 =23
var B:array [1..1000] of real;
c:integer;d:real;
begin
writeln('Vvedite N=');read(a);
d:=0;
for c:=1 to n do
if(c mod 2= 0) then d:=d+b[c];
b[n]:=d;writeln(b[n]);readln;readln;
end;
Если нажать на зеленый флаг, то машина будет двигаться, пока не "наедет" на белый цвет, не знаю, что значит "спрятаться", но в любом случае скрипт остановится.
Щелкаешь ПКМ по надписи: выровнять: прямая строка с переносом: применить для всех: сохранить.