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

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

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

var n:integer;
function randomvirazhenie(n:integer):string;
var i:integer;
    CharArr: array of char;
begin
  CharArr := ['*', '+', '-'];
  randomize;
  for i:=1 to n do
    begin
      write( random(100), ' ');
      if i<n then
        write( CharArr[random(3)] , ' ' );
    end;
end;

begin
  writeln('Enter n ');
  readln(n);
  writeln('random expression ');
  randomvirazhenie(n);
  writeln();
  write('End');
  readln();
end.       

Вывод консоли:

Enter n
5
random expression
23 - 76 + 29 - 87 - 34
End