Write a procedure in Pascal that takes a parameter – a natural number N – and displays a line of N characters ‘-‘.

procedure LinePrn (N: integer); var i: integer; begin for i: = 1 to N do write (‘-‘); end; The procedure has one parameter “N”, it transfers how many characters should be displayed on the screen in a line. In the loop, the variable “i” counts values from “1” to the value of the procedure parameter “N”, and at each count, a ‘-‘ character is printed on the screen, thus drawing a line.