задача по массивам!

[Анна22]

выручайте!!!
Даны три числовые последовательности a,b,c.Сформировать две новые последовательности Х и У в соответствии со следующим правилом
Хi=min9(ai; bi; r)/2; Yi=min(bi; ci; r)/2; i=1,2…n; r-произвольное число.
заранее сасибо!!!

[alex_fcsm]

в цикле

 begin
  min:=a[i];
  if b[i]<a[i] then min:=b[i];
  if min<r then min:=r;
  x[i]:=min/2;
  min:=b[i];
  if c[i]<b[i] then min:=c[i];
  if min<r then min:=r;
  y[i]:=min/2;
 end;