Question

помогите с заданием(на фото).

Answer 1

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.