Урок 15 (Решенная задача 11)

Урок 15 (Решенная задача номер 11)

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

a1 # a2 # ..... # aN

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

var
  N: integer;
function ru36(P: integer): string;
var a: array [1..1000] of integer;
    b : array [1..3] of char;
  i: integer;
begin
  b[1] := '*';
  b[2] := '+';
  b[3] := '-';
  randomize();
  for i := 1 to P do
  begin
    a[i] := random(101);
    write(a[i], ' ');
    write(b[random(4) - - 1]);
    write(' ');
  end;
end;

begin
 writeln('vvedite cislo N');
 readln(N);
 ru36(N);
end.