Ответ:

var a,b: array[1..5] of integer;

t,t1,sum,sum1,i:integer;

begin

{ввод времени 1 команды }

i:=1;

while i<6 do

begin

read(a[i]);

sum:=sum+a[i];

i:=i+1;

end;

{ввод времени 2 команды }

i:=1;

while i<6 do

begin

read(b[i]);

sum1:=sum1+b[i];

i:=i+1;

end;

if (sum1 > sum) then

writeln('2-ая ')

else

writeln('1-ая')

end.

Объяснение: