Question

Составьте программу которая вычисляет сумму натуральных чисел от 10 до 15 и выводит на экран результат

Answer 1

Var a,sum:integer;
begin
sum:=0;
for a:=10 to 15 do begin
sum:=sum+a;
end;
write('сумма = ',sum);
end.