program ParamDemo;

uses
 Forms;

var
 Number: Integer;

procedure DoVerticals(HowManyTimes: Integer);
var
 Count: Integer;
begin
 for Count := 1 to HowManyTimes do
 Writeln('   |   |   ');
end;

begin
 Writeln('Ile wierszy chcesz zobaczy: ');
 Readln(Number);
 DoVerticals(Number);

 Readln;
end.