Даны три числовые последовательности a, b и с. Сформировать две новые последовательности x и y в соответствии со следующим правилом xi=max(ai,bi)/2; yi=max(bi/ci)/2; i=1,2…n — Pascal(Паскаль)

uses crt;

const
  n = 10;

var
  a, b, c, x, y: array [1 .. n] of real;
  i: integer;

Function Max2(p, q: real): real; // функция, чтобы не считать каждый раз
var
  max: real;
begin
  if p > q then
    max := p
  else
    max := q;
  Max2 := max / 2;
end;

begin
  clrscr;
  randomize;
  writeln('Massiv A:');
  for i := 1 to n do
  begin
    a[i] := random(10) + random;
    write(a[i]:5:2);
  end;
  writeln;
  writeln('Massiv B:');
  for i := 1 to n do
  begin
    b[i] := random(10) + random;
    write(b[i]:5:2);
  end;
  writeln;
  writeln('Massiv C:');
  for i := 1 to n do
  begin
    c[i] := random(10) + random;
    write(c[i]:5:2);
  end;
  writeln;
  writeln('Massiv X:');
  for i := 1 to n do
  begin
    x[i] := Max2(a[i], b[i]); // вызов функции для х
    write(x[i]:5:2);
  end;
  writeln;
  writeln('Massiv Y:');
  for i := 1 to n do
  begin
    y[i] := Max2(b[i], c[i]); // вызов функции для у
    write(y[i]:5:2);
  end;
  readln

end.