По правому краю в комірці вирівнюють:а)формули б)числа в)текст

#include <iostream>

#include <vector>

#include <iterator>

#include <algorithm>

#include <cmath>

int main()

{

int

 sum(0), count(0),

 A, B;

std::cin >> A >> B;

std::vector<int> vec;

std::copy(std::istream_iterator<int>(std::cin), std::istream_iterator<int>(), std::back_inserter(vec));

for(auto it = vec.begin(); it != vec.end(); it++)

{

 if(A < *it && B > *it && (std::distance(vec.begin(), it) % 4) == 0)

  sum += pow(*it, 2);

}

std::cout << "Количество нулей: " << std::count(vec.begin(), vec.end(), 0) << std::endl;

std::cout << "Сумма квадратов чисел: " << sum << std::endl;

}

var

 n, k, s, sa: integer;

begin

 k := 0;

 s := 0;

 sa := 0;

 writeln('Введите последовательность, окончание ввода - число 0');

 repeat

   read(n);

   if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

   if (n <> 0) and (n < 100) then inc(k);

   sa := sa + n

 until n = 0;

 readln;

 writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

 writeln('Количество чисел, не больших 100, равно ', k);

 writeln('Сумма последовательности равна ', sa);

 readln

end.

Объяснение: