Объяснение:
var
p,i,s:integer;
begin
readln(p);
s:=0;
for i:=1 to p do
if i mod 3 =0 then s:=s+i;
writeln (s);
end.
