Задача 13 Урок 15

Задача 13 Урок 15

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:
a1 # a2 # ..... # aN
Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

var
    N: integer;
  function randomMath(var x: integer): string;
   var
     min, max, maxS, i, j: integer;
     mas: array [1..10] of integer;
     masStr: array [1..3] of string;
   begin
     randomize();
     min:= 1;
     max:= 100;
     maxS:= 3;
     masStr[1]:= '*';
     masStr[2]:= '+';
     masStr[3]:= '-';
     for i:= low(mas) to high(mas) do
       begin
         mas[i]:= min + random(max - min + 1);
         write(mas[i], ' ');
       end;
     writeln();
     for i:= 1 to x do
       begin
       write(mas[1 + random(i)], ' ', masStr[random(maxS - min + 1) + min], ' ');
       end;
   end;
begin
   N:= 5;// длинна выражения
   randomMath(N);
   readln();
end.