Program PascalGuru;
 
var i:integer;
    k,s:integer;
 
begin
i:=0;
s:=0;
k:=0;
 
repeat
inc(i,5);
 
 if i mod 3=0 then
  begin
  inc(k);
  writeln(i);
  inc(s,i);
  end;
 
until i=150;
 
writeln;
writeln('Kol-vo= ',k);
writeln('Summa=  ',s);
 
readln;
end.