Решение квадратного уравнения с произвольными вещественными
коэффициентами
Классическим примером разветвляющегося алгоритма является
решение квадратного уравнения с произвольными коэффициентами a, b и c.

Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)

Type
  V = array of integer;

function ProdPos(a: V): longint;
var
  i: integer;
begin
  Result := 1;
  foreach var p: longint in a do
    if p > 0 then Result := Result * p
end;

procedure InitMas(var a: V; title: string);
var
  i: integer;
begin
  writeln(title, '(', length(a, 0), '). Вводите элементы.');
  for i := 0 to length(a, 0) - 1 do
    read(a[i])
end;

procedure GetMas(var a: V; dim: integer; title: string);
begin
  SetLength(a, dim);
  InitMas(a, title);
end;

const
  n1 = 10;
  n2 = 15;

var
  A, B: V;

begin
  GetMas(A, n1, 'Массив А');
  GetMas(B, n2, 'массив B');
  writeln('Большее произведение положительных ', max(ProdPos(A), ProdPos(B)))
end.

Тестовый прогон:
Массив А(10). Вводите элементы.
1 1 1 1 2 1 2 2 1 5
массив B(15). Вводите элементы.
1 0 2 4 0 1 -3 -4 1 2 3 1 -3 0 2
Большее произведение положительных 96