Это кумир 1. составить алгоритм для нахождения мощности. 2. составить алгоритм для вывода на экран всех чисел до 70, кратных семи, и их суммы. 3. составить алгоритм бота для общения. например, выбора эвм, компьютерных игр и т. п.

 program z1;
 var n,m:integer;
 rost,nine_a,nine_b:real;
 begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
 read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.

как-то так, будут вопросы пиши)
Всего-то 30 мин

1)
typedef size_t uint32; 
mt19937 gen{ random_device()() }; 
uniform_int_distribution<uint32> uid(20, 100); 
const uint32 N = 10;     
int main() 
{
     uint32 arr[N], pos{0}, neg{0};
     for (uint32 i = 0; i < N; ++i) {
         arr[i] = uid(gen);
         cout << arr[i] << " ";
         if (arr[i] % 2 == 0) ++pos;
         else ++neg;
     }
     cout << endl << pos << "/" << neg << endl;
     system("pause"); 
}
2)
typedef size_t uint32; 
mt19937 gen{ random_device()() }; 
uniform_int_distribution<uint32> uid(0, 100); 
const uint32 N = 10;     
int main() 
{
     uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
     for (uint32 i = 0; i < N; ++i) {
         arr[i] = uid(gen);
         cout << arr[i] << " ";
         if (arr[i] >= 50) {
             ++lf;
             sum1 += arr[i];
         } else {
             ++hf;
             sum2 += arr[i];
         }
     }
     cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
     system("pause"); 
}