Function srarifm;
var mas1,mas2 : array[1..100000] of longint;
i,n1,n2 : longint;
sum1,sum2:real;
begin
sum1:=0; sum2:=0;
for i:=1 to n1 do begin
sum1:=sum1+mas1[i];
end;
for i:=1 to n2 do begin
sum2:=sum2+mas2[i];
end;
if sum1/n1>sum2/n2 then writeln(1) else if sum2/n2>sum1/n1 then writeln(2) else writeln(=)
end;
Ну вроде так... Хотя ничего не обещаю)