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

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

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

a1 # a2 # ..... # aN

Где:

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

var
  n: integer;

function myfunction(n : integer) : string;
var
  z : array [1..3] of char= ('*', '+', '-');
  min, max, i, a, j  : integer;
  s : string;
begin
  randomize();
  min := 1;
  max := 100;
  for i := 1 to n-1 do
  begin
    j := 1 + random(3);
    a := min + random(max - min + 1);
    str(a,s);
    result := result + s + z[j];
  end;
  a := min + random(max - min + 1);
  str(a,s);
  result := result + s;

end;

begin
  writeln('Введите число');
  readln(n);
  write('Выражение: ');
  write(myfunction(n));
  writeln;

  write('Программа завершила свою работу');
  readln();readln();
end.