program SumNumbers;
varsum, i: integer;
beginsum := 0;
for i := 6 to 10 dobeginsum := sum + i;end;
writeln('Сумма чисел от 6 до 10: ', sum);end.
program SumNumbers;
var
sum, i: integer;
begin
sum := 0;
for i := 6 to 10 do
begin
sum := sum + i;
end;
writeln('Сумма чисел от 6 до 10: ', sum);
end.