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

Урок 15

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

a1 # a2 # ..... # aN

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

var n: integer;

function f1(n1: integer): String;
  var a: array[1..3] of char = ('+', '*', '-');
      i: integer;
      s, s1: String;
begin
  randomize();
  for i := 1 to n1 do
  begin
    str(i,s1);
    if i < n1 then
      s := s + ' ' + s1 + ' ' + a[(random(3)) + 1]
    else
      s := s + ' ' + s1;
  end;
  result := s;
end;

begin
  writeln('Введите целое число от 1 до 100');
  readln(n);
  writeln(f1(n));
  readln();
end.

КОНСОЛЬ

Введите целое число от 1 до 100
12
 1 * 2 - 3 * 4 - 5 * 6 + 7 * 8 + 9 * 10 - 11 - 12