var x,s,c:integer;
begin
while c<>30 do begin
readln (x);
if x mod 5=0 then begin
s:=s+x;
c+=1;
end;
writeln (s);
end.
P.s. Если с ответом все в порядке, поставь знак лучшего ответа, заранее )
## SeqGen(30, i -> 5 * i + 5).Sum.Print
var x,s,c:integer;
begin
while c<>30 do begin
readln (x);
if x mod 5=0 then begin
s:=s+x;
c+=1;
end;
end;
writeln (s);
end.
P.s. Если с ответом все в порядке, поставь знак лучшего ответа, заранее )
## SeqGen(30, i -> 5 * i + 5).Sum.Print