Составить программу для нахождения суммы чисел, кратных 7, в диапазоне от 0 до 100. Вывести на экран сумму чисел. Применить цикл с условием продолжения работы

Program _1;

Var

 sum, i : Integer;

Begin

 sum:=0;

 For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;

 Writeln(sum);

end.

Объяснение:

ответ:Program _1;

Var

 sum, i : Integer;

Begin

 sum:=0;

 For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;

 Writeln(sum);

Объяснение:

Вроде правильно