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

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

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

Где:
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

function str(k:integer):integer;
var j, y: integer;
    x : char;
a: array of integer;
begin
   randomize();
   SetLength(a, k);
   for j := 0 to k - 1 do a[j] := 1 + random(100);
   write('Массив: ');
   for j := 0 to k - 1 do write(a[j], ' ');
   writeln();
   y := 1 + random(3);
   if y = 1 then x := '*'
   else
     if y = 2 then x := '+'
     else x := '-';
   write('Знак: ');
   writeln(x);
   write('Строка: ');
   for j := 0 to k - 1 do
    if j <> k - 1 then write(a[j], ' ', x, ' ')
    else write(a[j]);
end;

var n: integer;
begin
  write('Введите целое положительное число: ');
  readln(n);
  str(n);
  readln();
end.