Решите двумя напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 1.

ОТДЕЛ Задача+;

ПОСТ
  N = 100;

ПЕР
  сумма, ч: ЦЕЛ;

УКАЗ

  сумма := 0;
  ОТ ч := 7 ДО N ПО 7 ВЫП
    ЕСЛИ ч ОСТАТОК 10 = 1 ТО
      УВЕЛИЧИТЬ(сумма)
    КОН
  КОН;


  сумма := 0; ч := 7;
  ПОКА ч <= N ВЫП
    ЕСЛИ ч ОСТАТОК 10 = 1 ТО
      УВЕЛИЧИТЬ(сумма)
    КОН;
    УВЕЛИЧИТЬ(ч, 7)
  КОН

КОН Задание.