program harommal;
uses crt;
var n,i:byte;
begin
     clrscr;
     writeln('Add meg az n erteket');
     readln(n);
     for i:=1 to n do
         begin
         if (i mod 3)=0 then
                        ossz:=ossz+i;
         end;
     writeln('A harommal oszthato szamok osszege: ',ossz);
readln;
end.