Программирование по инф. Кр

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=15;

 Var
 ar:array[1..n] of integer;
 pro,i,k:uint64;
begin
 randomize;
 pro:=1;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(22,23); //Серьёно?
   write(ar[i]:4); 
  pro:=pro*ar[i];
  end;
 writeln;
 writeln('Pro=',pro);
 write('Enter value:');
 readln(k);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]+k;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  23  23  22  22  22  22  23  23  23  22  23  22  22  23  23
Pro=10868183115618730368
Enter value:3
Final array:
    26    26    25    25    25    25    26    26    26    25    26    25    25    26    26

/*
Найти частное от деления нацело
используя только + и -
*/

#include <iostream>
using namespace std;

int main()
{
int a, b;
cout <<"Введите два целых числа: ";
cin >>a >>b;
int c=0;
while(a>=b)
{
a-=b;
c++;
}
cout <<"Частное равно " <<c <<endl;

return 0;
}

/*
Определение среднего роста учащичся
*/
#include <iostream>
using namespace std;

int main()
{
cout <<"Введите количество учащихся: ";
int cnt;
cin >>cnt;
cout <<"Ведите рост каждого из " <<cnt <<" учащихся:" <<endl;
int length=0, l;;
for(int i=0; i!=cnt; ++i)
{
cin >>l;
length+=l;
}
float avg=1.0*length/cnt*1.0;
cout.setf(std::ios::fixed);
cout.precision(2);
cout <<"\nСредний рост: " <<avg <<endl;

return 0;
}