program one;
type TIntMassiv = array of real;
var a,b,c,x,y: TIntMassiv; n,i:integer;
begin
writeln('Введите длину массивов(n)');
readln(n);
setLength(a,n); // Создаем динамические массивы длины n
setLength(b,n);
setLength(c,n);
setLength(x,n);
setLength(y,n);
for i := 0 to n-1 do
begin
writeln('Введите ',i+1, ' массива a');
readln(a[i]);
writeln('Введите ',i+1, ' массива b');
readln(b[i]);
writeln('Введите ',i+1, ' массива c');
readln(c[i]);
end;
for i := 0 to n-1 do
begin
x[i] := MIN(a[i],b[i]) / 2;
y[i] := MIN(a[i],c[i]) / 2;
end;
for i := 0 to n-1 do
begin
writeln('x[',i,']=',x[i]);
writeln('y[',i,']=',y[i]);
end;
a := nil; //Освобождаем память
c := nil;
b := nil;
x := nil;
y := nil;
end.
