Конкретно напиши правильно
Program z;
var
i,n,s:integer;
begin
readln(n);
i:=3;
s:=0;
if n>=3 then
repeat
s := s + i;
i := i + 3;
until i > n;
writeln(s);
end.
Для пк - мало, да и для других девайсов - мало, приходится все время подчищать память
для пк норм - 500гб, минимум
Включение компьютера - нажатие внизу слева кнопки окошек (4 квадрата) или же на клавиатуре кнопка (четыре квадрата) возле пробела