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

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

a1 # a2 # ..... # aN

Где:

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

var n,i,a,p:integer;
    ch:char;

function znak():char;
var c:char;
    i:integer;
  begin
    randomize ();
    i:=random(3);
    if(i=0) then
      ch:='*';
    if(i=1) then
      ch:='-'
    else
      ch:='+';
    result:=ch;
  end;

begin
  randomize();
  writeln('Vvedite chislo elementov: ');
  readln(n);
  for i:=1 to n do
    begin
      if (i=n) then
        begin
          a:=random(101);
          write(a);
        end
      else
        begin
          ch:=znak();
          a:=random(101);
          write(a,' ',ch, ' ');
        end;

    end;
end.   

Консоль:

Vvedite chislo elementov: 
4

62 + 62 + 62 + 75