Определить численность самого большого школьного класса

uses crt;
var a:array [1..40] of integer; srar:real; i,j,sum:integer;
begin
sum:=0;
For i:=1 to 40 do begin a[i]:=random(100); write(a[i]:3); sum:=sum+a[i] 
end;
srar:=sum/40; Writeln; sum:=round (srar);
For i:=1 to 40 do if a[i]=sum then begin writeln (i); exit; end;
For j:=2 to 40 do
begin
For i:=1 to 40 do if ((a[i]>sum) and (a[i]<sum+j)) or ((a[i]<sum) and 
(a[i]>sum-j)) then begin writeln (i); exit; end;
end;
end.

uses crt;
var a:array [1..50] of integer; i,min:integer;
begin
min:=100;
For i:=1 to 50 do a[i]:=random (100);
{For i:=1 to 50 do Write (a[i]:3);
Writeln;}
For i:=1 to 50 do if a[i]<min then min:=a[i];
For i:=1 to 50 do a[i]:=a[i]-min;
For i:=1 to 50 do Write (a[i]:3);
end.

uses crt;
var a:array [1..11] of integer; i:integer;
begin
  For i:=1 to 11 do a[i]:=random(100);
  For i:=1 to 11 do Write (a[i]:3);
  For i:=1 to 5 do a[12-i]:=a[i]; Writeln;
  For i:=1 to 11 do Write (a[i]:3);
end.

uses crt;
var a:array [1..11] of integer; i:integer;
begin
  For i:=1 to 11 do a[i]:=random(100);
  For i:=1 to 11 do Write (a[i]:3);
  For i:=1 to 5 do a[i]:=a[12-i]; Writeln;
  For i:=1 to 11 do Write (a[i]:3);
end.

uses crt;
var a:array [1..40] of integer; i,j,min,min1n,min2n:integer;
begin
min:=101;
 For i:=1 to 40 do a[i]:=random(100);
 For i:=1 to 40 do Write (a[i]:3);
 For i:=1 to 40 do if a[i]<min then begin min:=a[i]; min1n:=i; end;
min:=101;
 For i:=1 to 40 do if (a[i]<min) and (i<>min1n) then begin min:=a[i]; 
 
min2n:=i; end;
 Writeln;
 Writeln ('Answer: ',min1n,'+',min2n);
end.