Цикл

[Cheerful-mermaid]

Помогите пожалуйста написать программу!!!!!
ЦИКЛ....Вычислить сумму натуральных числ от Н к М
Паскаль, НАМ, и блок схема!!

[Jasper92]

В смысле программа в цыкле от Н до М найти сумму натуральных чисел.

begin S:=0
for a:=H to M do
if (round(A)=A) and (a>0) then s:=s+a;
writeln ('Cумма натуральных чисел',s);
end.

Если все правильно понял.

[alex_fcsm]

var s,i,h,k:integer;
begin
readln(h,k);
s:=0;
for i:=h to k do
 s:=s+i;
writeln(s);
end.