паскаль
Объяснение:
var
n, i, s: integer;
begin
Write('Введите число n >> ');
ReadLn(n);
i := 1;
while i <= n do
s := s + i;
i := i + 3;
end;
WriteLn('Сумма равна S= ', s);
end.
