Массивы В1 (10) и В2 (10) заполнены случайными числами. Сформировать третий массив, каждый элемент которого равен большему из соответствующих элементов данного массива. Вывести три массива.

Var b1, b2, b3:array[1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

b1[i]:=random (-50,50);

b2[i]:=random (-50,50);

b3[i]:=max (b1[i], b2[i]);

end;

write ('B1 Mass ');

for i:=1 to 10 do

write (b1[i]:3,' ');

writeln;

write ('B2 Mass ');

for i:=1 to 10 do

write (b2[i]:3,' ');

writeln;

write ('B3 Mass ');

for i:=1 to 10 do

write (b3[i]:3,' ');

end.