Напишите и протестируйте программу, в которой выполняется сложение двух чисел. Программа построена с вс алгоритма функция.

Var
    n, k, i, imax, j: integer;
    a: array[1..100]of integer;

begin
    randomize;
    n := random(30) + 10;
    for i := 1 to n do
    begin
        a[i] := Random(30);
        write(a[i], ' ');
    end;
    writeln();
   
    {сортировочка}
    for i := 1 to n - 1 do
    begin
        imax := i;
        for j := i + 1 to n do
            if a[j] > a[imax] then
                imax := j;
        k := a[i];
        a[i] := a[imax];
        a[imax] := k;
    end;
   
    for i := 1 to n do
        write(a[i], ' ');
   
    k := 0;
    for i := 2 to n - 1 do
        if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
            k := k + 1;
   
    if a[1] <> a[2] then k := k + 1;
    if a[n] <> a[n - 1] then k := k + 1;
   
    writeln();
    writeln('No doubles - ', k);
end.

// PascalABC.NET 3.1, сборка 1267 от 10.07.2016
begin
  Writeln(17*'_','.888888888.');
  Writeln(17*'_','88"P""T"T888_8o');
  Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
  Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
  Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
  Writeln(11*'_','88_88_88o888"_88"__o888_88');
  Writeln(11*'_','88."8o."T88P.88"._88888_88');
  Writeln(11*'_','888."888."88P".o8_8888_888');
  Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
  Writeln(12*'_','"8888. ""888P"P.888".88P');
  Writeln(13*'_','"88888ooo__888P".o888');
  Writeln(15*'_','""8P"".oooooo8888P');
  Writeln(6*'_','.oo888ooo.____8friga888P8');
  Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
  Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
  Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
  Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
  Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
  Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
  Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
  Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
  Writeln(16*'_','"888"_88"____88FRIGA88"".');
  Writeln(20*'_','o8P_______"888"""');
  Writeln(14*'_','...oo88');
  Writeln('_____"8oo...oo888""')
end.