带参数的程序：绘制一条线（pascal）

Question

我想在pascal中创建一个计算2个数字之和的程序。我还希望该程序在数字2和总数（两个数字）之间画一条线。用户必须选择线的大小和符号，他想绘制。这就是我现在所拥有的：

Program oef1;
Uses CRT;
VAR number1,number2,total:real;
procedure drawline(size:integer;symbol:char);
     VAR i:integer;
     begin
          FOR i:= 1 to size do write(symbol)
     end;



begin
     readln(number1,number2);

     writeln(number1:10:3);
     writeln(number2:10:3);
     drawline;
     writeln;
     total:=number1+number2;
     writeln(total:10:3);
     drawline;
     readkey();
end.

Answer 1

Drawline当前绘制了symbol s size长的字符串。它需要两个参数，例如

drawline(total, '-');

也许应该有一个符号的readln语句，然后你可以用该变量调用它。