program dlb;
var s,i : integer;
begin
s:= 0;
for i := 1 to 50 do
if i mod 5 = 0 then
s := s + i;
write(i,' ');
end;
writeln();
writeln('Сумма этих чисел: ',s);
end.
program dlb;
var s,i : integer;
begin
s:= 0;
for i := 1 to 50 do
if i mod 5 = 0 then
begin
s := s + i;
write(i,' ');
end;
writeln();
writeln('Сумма этих чисел: ',s);
end.