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

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

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

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

program lesson15_13;

function funcStr(num: integer): string;
var
    str, s: string;
    i, randNum, randCh : integer;
    a: array[1..3] of char = ('*', '+', '-');
begin
    randomize();

    str := '';
    for i := 1 to num do
    begin
        randNum := 1 + random(100);
        randCh := 1 + random(3);

        s := '';
        while(randNum > 0) do
        begin
            s := chr(randNum mod 10 + 48) + s;
            randNum := randNum div 10;
		end;

        if i < num then
            str := str + s + ' ' + a[randCh] + ' '
        else
            str := str + s;
	end;

    result := str;
end;

var
    a, i, num: integer;
    s: string;
begin
    writeln('enter number a');
    readln(a);

    writeln(funcStr(a));
	readln();
end.