Как вывести 20 одинаковых символов на экран в pascal

Program n_1;
var i:integer;
  begin
    
    for i := 1 to 20 do  
     
          writeln('символ');
    
  end.