program Sum_of_sequence;

var
sum, i: integer;

begin
sum := 0;
i := 3;

while i <= 38 do
begin
sum := sum + i;
i := i + 5;
end;

writeln('Сумма последовательности чисел: ', sum);
end.