cccc1808 Var 
i,k,s : integer;
   begin
 k := 0; 
s := 0; 
for i := - 30 to 30 do   
if i mod 3 = 0 then   
begin 
  k := k +1;
    s := s + i;   
 end; 
writeln (k); 
writeln (s); 
end.

buiko001 Program z;
var i,s,k:integer;
begin
s:=0;
k:=0;
for i:=-30 to 30 do
if i mod 3=0 then
begin
s:=s+i;
k:=k+1;
end;
write(s,' ',k);
end.
а тебе -30 и 30 включительно?